#!/usr/bin/perl -w\n<\/div> <\/div>use strict;\n<\/div> <\/div>my $time = $ARGV[0] || 1;\n<\/div>my $exit = $ARGV[1] || 0;\n<\/div> <\/div>sleep $time;\n<\/div>exit $exit;\n<\/div> <\/div><\/pre><\/div>\n \n <\/div>\n\n \n view raw<\/a>\n sleeper<\/a>\n This Gist<\/a> brought to you by GitHub<\/a>.\n <\/div>\n <\/div>\n \n \n<\/div>\n')