#!/usr/bin/perl --
use strict; use warnings;
Fudge('1130508154533613');
sub Fudge {
    use POSIX();
    my( $Y , $M, $D, $h, $m, $s , $ms ) = $_[-1] =~ m{^(.{3})(..)(..)(..)(..)(..)(...)$};
  
    my $epoch = POSIX::mktime( $s, $m, $h, $D, $M, $Y, -1, -1, -1  );
    print "$epoch = ",
        POSIX::strftime('%Y-%m-%d %H:%M:%S', $s, $m, $h, $D, $M, $Y, -1, -1, -1  ),
        ".$ms" , $/;
    print scalar localtime $epoch;
    print $/;
}
__END__
1370731533 = 2013-06-08 15:45:33.613
Sat Jun  8 15:45:33 2013