Select Code to Download

#!/usr/local/bin/perl5 -w

...
    open 3 final output files
    write out 3 final output files
}

if ($!)
{
...
        # reset the error so that we can catch next genuine error cond
+ition
        $! = 0;
}