Select Code to Download

sub scanfile ($) {
    my $filename = shift;
...
    read $handle, my $buffer, -s $handle;
    return scan ($buffer);
}