#!/usr/bin/perl
use strict;
use Net::MAC::Vendor;

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

# Vendor code lookup
my $winmac = "90:2b:34:38:44:0d";
my $vendor_ref = Net::MAC::Vendor::fetch_oui_from_cache( $winmac );
print "Vendor is: $vendor_ref \n"