#!/usr/bin/perl -w

use strict;
use Tie::Scalar;

package Tie_timer;
  sub TIESCALAR { bless {}, shift }
  sub FETCH { scalar localtime }

package main;

my $now;

tie ($now, "Tie_timer");
print "$now\n"; sleep 5; print "$now\n"