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