Select Code to Download

open my $at, '|-', 'at', qw(now + 1 minute)
   or die "can't open pipe to 'at': $!";
print $at "rm $session_file";
close $at or die $!;