require Exporter;

@EXPORT=qw(@chassistypes $commstring $sysname $syscontact $syslocation $ipadentaddr
        $cdpdevicecacheport $ipadentnetmask $cdpcacheplatform $cdpcachedeviceport
        $chassisid $chassistype $sysdesc $romid);
........

$commstring=`/usr/bin/cat /var/scripts/.data/commstring`;
chomp $commstring;

........

1;



##</code><code>##

package NETWORK::Discovery;

use NETWORK::SNMP;
use Net::SNMP;
use Net::Ping;


sub new {
...
}

sub discover_pvp {
...
}

sub getnext_device {
....
}

sub getnext_nonsnmp {
...
}

1;