package Tie::Time;
use Carp;
use strict;

sub TIESCALAR { bless \my $dummy, shift }
sub STORE { croak 'Cannot set time this way' }
sub FETCH { time }

=head1 NAME

Tie::Time - Have a scalar return the current time()

=head1 SYNOPSIS

    tie my $time, 'Tie::Time'; # New variable
    tie $^T, 'Tie::Time';      # Override existing $^T

=head1 DESCRIPTION

Guess :)

=head1 URL

http://perlmonks.org/?node_id=158912

=cut