use Time::HiRes qw(gettimeofday);

my $timestamp = int (gettimeofday * 1000);