Select Code to Download

#!/usr/bin/perl -w

...
    $packed_double = reverse pack "d", $double;
}

#!/usr/bin/perl -w

...
else {
    $packed_double = reverse pack "d", $double;
}