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

##</code><code>##

use URI::file;
print URI::file->new('/opt/netdb/netmacvendor/oui.txt');

##</code><code>##

#!/usr/bin/perl
use strict;
use Net::MAC::Vendor;
use URI::file;
print URI::file->new('/opt/netdb/netmacvendor/oui.txt');

Net::MAC::Vendor::load_cache("file:///opt/netdb/netmacvendor/oui.txt");

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