#!/usr/bin/perl --
use strict;
use warnings;
Fudge('1130508154533613');

sub Fudge {
    use POSIX qw( mktime strftime );
    my ( $Y, $M, $D, $h, $m, $s, $ms ) = unpack 'A3 (A2)5  A3', $_[-1];

    my $epoch = mktime( $s, $m, $h, $D, $M, $Y, -1, -1, -1 );
    print "$epoch = ",
      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