if( $more ) {
    syswrite( OUT, 1, chr( 64 ) );
    $more = 0;
}
sysread( IN, 4, my $buf );
my $size = unpack( 'N', $buf ); ## Or 'V' see perlfunc:pack
my $imgData;
sysread( IN, $size, $imgData );