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; }