Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Time - $^T
while (<>) {
    $time = time - $^T;
    print "You started this script $time seconds ago.\n";
}