[ 5.546199] tr nope, doesn't (yet) match (?-xism:[\/a-zA-Z0-9._\[\]-]+ ?(?:\(config[^)]*\))? ?[#>] ?$)
[ 5.550072] du SEEN:

##</code><code>##

        @version_info = $session_obj->cmd('term length 0');
        $session_obj->cmd('show int | i proto.*notconnect|proto.*administratively down|Last in.* [6-9]w|Last in.*[0-9][0-9]w|[0-9]y|disabled|Last input never, output never, output hang never');
        $session_obj->cmd('conf t');
         foreach (@version_info) {
                 if ($_ =~ /(.*) is down/) {
                        $_ = $1;
                        print $_;
                        #$session_obj->cmd('conf t');
                        $session_obj->cmd("int $_");
                        $session_obj->cmd('shutdown');
               }
              }
        $session_obj->cmd('exit');
        $session_obj->close;