my $mode = $Data[3];
my $user = $Data[2];
my $imagename = $Data[10];
if ($mode eq "recieve") {
   my ($name_fullsize,$name_thumb) = ($Label[11],$Label[12]);
   my $fh_fullsize = $fHandle->upload($name_fullsize);
   my $fh_thumb = $fHandle->upload($name_thumb);
   if ($fh_fullsize =~ /\.jpg$/i) {
      open (FULLSIZE, ">".$Root."/records/classifieds/fullsize/$user/$imagename.jpg");
      binmode(FULLSIZE);
      while (read($fh_fullsize, $fBuffer, 1024)) {print FULLSIZE $fBuffer}
      close (FULLSIZE);
      close $fh_fullsize;
      if ($fh_thumb =~ /\.jpg$/i) {
         open (THUMBNAIL, ">".$Root."/records/classifieds/thumbnail/$user/$imagename.jpg");
         binmode(THUMBNAIL);
         while (read($fh_thumb, $fBuffer, 1024)) {print THUMBNAIL $fBuffer}
         close (THUMBNAIL);
  } else {      copy($Root."/records/classifieds/fullsize/$user/$imagename.jpg", $Root."/records/classifieds/thumbnail/$user/$imagename.jpg");
      }
   # $Data[11] = $Data[12] = "";
   @Data = sub::clearcarry(0,@Data);
   @Data = sub::pushcommand("preview",@Data);
   goto AllDone;
   }

##</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