17 lines
232 B
Perl
Executable File
17 lines
232 B
Perl
Executable File
#!/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;
|
|
}
|
|
|