#!/usr/bin/perl use strict; use LWP::UserAgent; use HTTP::Request; my $url = "http://a.hatena.ne.jp/". $ENV{'QUERY_STRING'} ."/rss"; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); my $content = $res->as_string; $content =~ s/^HTTP.*//; $content =~ s/^[\r\n]//; print $content; 1;