Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
use vars qw($now);
tie ($now, localtime());
print "$now\n"; sleep 5; print "$now\n";
  2. or download this
    Can't locate object method "TIESCALAR" via package "Mon Sep 24 21:29:5
+0 2001" at tienow.pl line 7.