Select Code to Download

#!/usr/bin/perl

...
    my $tmpname = int(rand($limit));
    $md = "$TMPDIR/runitout_$tmpname";
} until(sysopen(my $fd, $md, O_CREAT|O_EXCL));