$ cat epoch.pl
#!/bin/perl

use POSIX qw( strftime );

my $epoch_ts = '1709758800.000';

print strftime('%Y-%m-%d %H:%M:%S', localtime($epoch_ts)) . "\n";
print strftime('%Y-%m-%d %H:%M:%S', gmtime($epoch_ts)) . "\n";
$ ./epoch.pl
2024-03-07 00:00:00
2024-03-06 21:00:00