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

##</code><code>##

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

  foreach (@ARGV) {
    ...
  };

##</code><code>##

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

##</code><code>##

    # OPEN THE ORIGINAL FILE
    die "Can't open file for reading : $!\n" 
      unless open(INFILE,"<$_");
    binmode INFILE;

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

##</code><code>##

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