#!/usr/bin/perl -w

use strict;
use Config;

my $double = 3.1415;
my $packed_double;

if ($Config{byteorder} == 1234) {
    $packed_double = pack "d", $double;
}
else {
    $packed_double = reverse pack "d", $double;
}