netcat

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     netcat
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     2009-01-06 17:32:15
   5 ###APPVER:      0.1
   6 ###APPDESC:     netcat a http url with autologin support
   7 ###APPUSAGE:    (url)
   8 ###APPEXAMPLE:  netcat www.google.com
   9 use strict;
  10 die("Usage:$0 URL\n") unless(@ARGV);
  11
  12 my ($url) = @ARGV;
  13 $url = "http://$url" unless($url =~ /^http:/i);
  14
  15 use LWP::UserAgent;
  16 use HTTP::Cookies;
  17
  18
  19 my  $ua = LWP::UserAgent->new;
  20 my $cookie = HTTP::Cookies->new(file => "$ENV{'HOME'}/.lwp_cookies.dat", autosave => 1);
  21 $ua->cookie_jar($cookie);
  22 $ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.3) Gecko/2008092416 Firefox/3.0.3 Firefox/3.0.1");
  23 my $req = HTTP::Request->new(GET => $url);
  24 my $res = $ua->request($req);
  25   if ($res->is_success) {
  26       print $res->content;
  27   }
  28   else {
  29       print STDERR $res->status_line, "\n";
  30       exit 1;
  31   }
  32 exit 0;
  33