PERL:

use Time::HiRes qw(time);
print time();
print "\n";

OUTPUT: 1182629601.81844

PYTHON:

import time

print time.time()

OUTPUT: 1182629606.04