1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/env perl # sleep for a number of seconds if ( $#ARGV != 0 ) { print "Usage: $0 seconds\n"; exit 1; } if ( $ARGV[0] =~ /(\d+)/ ) { sleep $1; exit 0; } else { print "Usage: $0 seconds\n"; exit 1; }