Select Code to Download

#!/usr/bin/perl -w

...
    eval{ blah() };
    sleep 30;
}

unless ( -e $lockfile ) {
    open F, ">$lockfile" or die;
}