#!/usr/bin/perl
#Usage: "script.pl INT" [INT = any # (5000+ to see anything)]
${_}=time;print$.++."\r"while($.<$ARGV[0]);$_=abs(time-$_);print$_." seconds.";