$ perl -MTime::HiRes=sleep -e'exec $ARGV[0] if !fork; sleep $ARGV[1]; unlink $ARGV[0]; open $fh, ">", $ARGV[0]; wait' script.pl 0.01
Code injection!