open DATA, '<:raw', $datafile or die $!;
my $data;
sysread( DATA, $data, -s( $datafile ) ) or die $!;
close DATA;

sub lookup {
    my $target = shift;
    my( $left, $right ) = ( 0, length( $data ) / 6 );
    while( $left < $right ) {
        my $mid = int( ( $left + $right ) / 2 );
        my( $key, $val ) = unpack 'NS', substr $data, $mid * 6, 6;
        if( $key < $target ) {
            $left = $mid +1;
        }
        elsif( $key > $target ) {
            $right = $mid - 1;
        }
        elsif( $key == $target ) {
            return $val;
        }
        else {
            return;
        }
    }
}