fork(51) download
  1. #!/usr/bin/perl
  2. print unpack("d", pack("Q", hex)), "\n" for <>;
Success #stdin #stdout 0s 6044KB
stdin
407C060000000000
C0610C0000000000
stdout
448.375
-136.375