Select Code to Download

my $rec;
do_something( $rec) while read(FILE, $rec,$reclength);

@hd = unpack 'h*', $rec;
@floats = unpack 'f*', $rec;