use POSIX;
use Time::Local;
print POSIX::mktime(40.347012, 24, 18, 19, 00, 103) . "\n";
print timelocal(40.347012, 24, 18, 19, 00, 103) . "\n";

__END__

Returns:
1043000680
1043000680.34701