01 #!/usr/bin/perl -w 02 use strict; 03 04 while(1) { 05 function(time); 06 sleep(1); 07 } 08 09 sub function { 10 my($time) = @_; 11 12 print "$$: $time\n"; 13 }