sub main
{
my($devicename, $ip, $mask, $ts);
my($line, @modem, $result_line);

open(DEVICELIST, "<Devicelist") or die "Can't open Devicelist file : $!\n";
while ($line = <DEVICELIST>)
        {       
        $devicename = $line;
        chomp($devicename);

        # login to the device
        $ts=loginDevice("username", "passwd", "enpasswd", $devicename);

        open(OUTFILE, ">>Device-info") ||
                die("Cannot open Device-info: $!\n");

        print OUTFILE "Device $devicename\n";

        @modem = $ts->cmd("show run | inc dhcp relay");
        foreach $result_line (@modem)
                {
                print OUTFILE "$result_line\n";
                }

        print OUTFILE "\n";
        close(OUTFILE);
        $ts->print('exit');
        }
exit;
}