#!/usr/bin/perl -w
# File: useClockVar
package ClockVar;

sub getTime {
  my ($hour, $minute, $second) = (localtime(time))[2,1,0];
  return "$hour:$minute:$second";
}

sub TIESCALAR {
  my $thispkg = shift;
  return bless (\&getTime, $thispkg);
}

sub FETCH {
  my $timesub = shift;
  return &$timesub;
}

package main;

tie $clock, 'ClockVar';

print "$clock\n";
sleep 3;
print "$clock\n";
