#!/usr/bin/perl -w
use strict;
use Tie::Scalar;
use vars qw($now);
tie ($now, localtime());
print "$now\n"; sleep 5; print "$now\n";

##</code><code>##

Can't locate object method "TIESCALAR" via package "Mon Sep 24 21:29:50 2001" at tienow.pl line 7.