Select Code to Download

... 
my $j=Win32::Job->new;
...
$j->watch(sub { -e 'killfile.txt' ? 1 : 0 }, 3);
print "go on\n";
...