use Time::Local;
my $StartTime = time();

print "Doing nothing but waisting time....\n";
for ($i = 0; $i < 10000000; $i++) { }

$EndTime = time();
print "Waisted: ". ($EndTime - $StartTime) ."s\n";