#!/usr/bin/perl -w
use strict;

package TieTimeScalar;

sub TIESCALAR { bless {}, shift }
sub FETCH     { scalar localtime }

package main;

my $now; tie ($now, "TieTimeScalar");
while (1) { print "$now\n"; sleep 1 }