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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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