#!/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 }


##</code><code>##


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

package TieTimeArray;

sub TIEARRAY  { bless {}, shift }
sub FETCH     { my @self = localtime ; return @self }
sub FETCHSIZE { my $self = shift ; return scalar @{$self->{@self}} }

package main;

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


##</code><code>##

Can't use an undefined value as an ARRAY reference at ./TieTimeArray line 8.