foreach $Line ( @RouterOutput ) {
		if ( $Line =~ m/^Device / ) {
			@Data = split( ' ', $Line );
			$SwitchName = $Data[ 2 ] ;
			last ;
		}
		if ( $Line =~ m/^IP / ) {
			@Data = split( ' ', $Line );
			$SwitchIP = $Data[ 2 ] ;
			last ;
		}
	}