if ( $intcount>0 && $circid[0] ne "Not Defined" && $modemnumber ne "Not Defined" && $modemdown eq "0") {
	#Create the connection to the NAS
	$session = Net::Telnet::Cisco->new(Host => $nashost, Port => $nasport, Input_log => $logfile, Dump_Log => $dumpfile);
	# Login to the NAS and dial the OOB modem
	$session->waitfor('/Username:.*$/');
	$session->print($nasuser);
	$session->waitfor('/Password:.*$/');
	$session->print($naspass);
	$session->waitfor('/^$/'); 
	$session->print("ATZ");
	dial: if ($session->waitfor('/OK$/')) {
		$session->print("ATDT 91".$modemnumber);
		# Check for a connected status
        if (eval { $session->Net::Telnet::waitfor(Match => '/Username:.*$/', Timeout => '60', Errmode => 'die'); 1 }) {
			if ($session->login(Name => $nasuser, Password => $naspass)) {
				@command1 = "Interface Commands Output";
				my $i = 0;
				while ($ifname[$i]) {
					push(@command1,("\n\n$caption>sh int $ifname[$i]\n"));
					push(@command1,$session->cmd("sh int $ifname[$i]"));
					$i++;
				}
				@command2 = "Routing Commands Output";
				if ($wan eq "PIP") {
					push(@command2,("\n\n$caption>sh ip route\n"));
					push(@command2,$session->cmd("sh ip route"));
					push(@command2,("\n\n$caption>sh bgp summary\n"));
					push(@command2,$session->cmd("sh bgp summary"));
					push(@command2,("\n\n$caption>sh bgp\n"));
					push(@command2,$session->cmd("sh bgp"));
				} else {
					push(@command2,("\n\n$caption>sh ip route\n"));
					push(@command2,$session->cmd("sh ip route"));
					push(@command2,("\n\n$caption>sh ip ospf\n"));
					push(@command2,$session->cmd("sh ip ospf"));
					push(@command2,("\n\n$caption>sh ip ospf neigh\n"));
					push(@command2,$session->cmd("sh ip ospf neigh"));
				}
				$session->close;
				$dialfailed = 0;
            }
		}
	}
}