Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $pack2= pack "d$size", 4, 5, 6;
_munge( $out, $size, $pack1, $pack2 );
print $_, $/ for unpack "d$size", $out;

 $ perl double.pl
1.000000 4.000000
...
4
10
18