Select Code to Download

  use POSIX;
  my $ext = strftime "%Y%m%d%H%M", localtime;

  my $compress_files;
  if ($ARGV[0] eq '-c') {
...
  foreach (@ARGV) {
    ...
  };

    # OPEN THE ORIGINAL FILE
    die "Can't open file for reading : $!\n" 
...
    # OPEN THE NEW FILE
    die "Can't open file for writing : $!\n" 
      unless open(OUTFILE,">$arcfile");

    # OPEN THE ORIGINAL FILE
    die "Can't open file for reading : $!\n" 
...
    die "Can't open file for writing : $!\n" 
      unless open(OUTFILE,">$arcfile");
    binmode OUTFILE;

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web