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