Perlコーディング初心者質問スレ Part 38

[0364 ◆7CWqH7Oesg 04/10/27 22:34:08 ID:???]

use LWP::Simple;
use subs qw(open);
*open= sub { get($_[0]); };
$url="http://www.hogehoge/";
$data= open($url);