Help for this page

Select Code to Download

Select or download this

open (my $fh, '<', 'file') or die "$!\n";
binmode($fh);
...
    print "found 0x13\n"
    }
}

Select or download this

Contents of 'file': '.Eg5™eEfx`.'
#'.' = 0x13;