Mega Code Archive

 

Categories / Perl / Language Basics

 

Time - $^T

while (<>) {     $time = time - $^T;     print "You started this script $time seconds ago.\n"; }