The function/sub time() returns the sec. since the epoch. perl -e 'print time(), "\n";' For example: $var = time(); $var2 = ((($var / 365) / 24) / 60); print "The minutes since the epoch is: $var2 \n";