#!/usr/bin/perl -lw
$0 = q{test.pl};
qx(sleep $ARGV[0]);
exit 0;

##</code><code>##

user 30221 27990  0 08:36 pts/51   00:00:00 /usr/bin/perl -lw ./test.pl 10

##</code><code>##

user 30385 27990  0 08:36 pts/51   00:00:00 test.pl