my $n = pack 'H16', '3f0df9673344c570';;

printf "Big\n";
print unpack ("d", scalar reverse $n);

#Big
#5.71713084433029e-05

printf "\nLittle\n";
print unpack ("d",$n);
printf "\n";

#Little
#1.69044404965372e+235