package Stopwatch;
sub new{bless \$_[1], $_[0]} 
sub diff{`date +%s` - ${$_[0]}}
$a=new Stopwatch(`date +%s`);
sleep rand()*10; 
print "I slept for ", $a->diff, " seconds\n";