use strict;
use warnings;

die "Can't open $ARGV[1] for write.\n"
    if !open(FH, ">>$ARGV[1]");

print FH "$$) Doing something with $ARGV[0]\n";
sleep rand 10;
print FH "$$) Finished running.\n";