t/misc/get-file

   1
   2 $file = shift || "";
   3 $to = $file;
   4 $to =~ s|.*/||;  # only basename
   5 $to = "index.html" unless length $to;
   6
   7 use LWP::Debug qw(+);
   8
   9 use LWP::UserAgent;
  10
  11 $ua = new LWP::UserAgent;
  12 #$ua->agent("get-file/0.1");
  13 #$ua->from('aas@sn.no');
  14
  15 $res = $ua->request(HTTP::Request->new("GET", "http://localhost:8080/$file"), "$to");
  16
  17 #print $res->request->as_string;
  18 print $res->as_string;
  19
  20 print "Content saved in $to\n" if $res->is_success;