Select Code to Download

while (defined($line = <IN>)) {
    push @data, split(' ', $line);
}
my $string = pack("d*", @data);

@data = <IN>;