Select Code to Download

kill 15,$Upload_PID; # Hard-kill and risk half-uploaded temp-files on 
+disk, if you write them
kill 10,$Upload_PID; # Send SIGUSR1 to the upload-script

$SIG{USR1} = sub { unlink $Temp_File; exit; };

my $Token = unpack('H*',pack('L',time).pack('S',$$));

$0 .= '('.$Token.')';

open my $ID_File,'>/dev/shm/tokenfiles/'.$Token;
print $ID_File $$;
close $ID_File;