package OUILookup; use strict; use warnings; use base qw( Exporter ); use LWP::Simple; use vars qw( @EXPORT @EXPORT_OK $VERSION $oui_address $oui_location ); BEGIN { @EXPORT= qw(get_oui_owner); @EXPORT_OK= qw( $oui_address $oui_location ); $VERSION = 1.00; $oui_address = "http://standards.ieee.org/regauth/oui/oui.txt"; $oui_location = "oui.txt"; }