my $filename = '/opt/netdb/netmacvendor/oui.txt';
open my $fh, '<', $filename
    or die "Couldn't read $filename: $!";