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