# in mycode.pl
END {
 system("touch done$param");
};

# in master.pl
SLEEPY:
while (1) 
{
    sleep(5);
    for my $done (@done_list)
    {
        next SLEEPY if ! -e $done;
    };
    last;
};
# cat files now:
etc..