package Now;
require Tie::Scalar;

our @ISA = qw(Tie::StdScalar);

sub FETCH {scalar localtime}

package main;

tie my $now, 'Now';

print "The time is $now\n";
sleep 3;
print "The time is $now\n";