These are the code samples that we built in class.
#!/usr/bin/perl use strict; use warnings; $| = $ARGV[0]; # try 0, then try 1 print "Start of output... "; sleep(5); print "and now we are done!\n";