until(&time){ print "hello, hello, This is $deadme please don't switch
+ off the computer I appear to have rematerialised in ram"; }

sub time{
my $revival = eval ($today() + rnd(($year()+5)-($year()+1)));
return $revival;
}
[download]