PerlでHttpRequest

my $content = httpRequest("http://www.hoge.com/");
print $content;

sub httpRequest{
    my $url  = shift;

    my($request, $userAgent, $response, $content);

    $request   = HTTP::Request->new(GET => $url);
    $userAgent = LWP::UserAgent->new;
    $response  = $userAgent->request($request);
    $content = $response->content;

    return $content;

}

参考URL:

• http://perltips.twinkle.cc/perl/get_html.php
• http://labs.gmo.jp/blog/ku/2007/06/lwpuseragentbasic.html
• http://www.akatsukinishisu.net/itazuragaki/perl/basic_auth_post_by_lwp_useragent.html