use strict;
use warnings;
use DBI;
use Net::Telnet::Cisco;
use Digest::MD5;

our $dbh;


my $session = Net::Telnet::Cisco-> new (Host => '10.200.2.100');
my $raw_data;

sub Login{


  my @output = $session->cmd('show run');
  my $List = join '',@output;
  my @array = split /interface ATM/,$List;
  shift @array;
  my %hash;
  for my $interface(@array){
  my ($bez) = $interface =~ /^([^\n]+)/;
  my @data = $interface =~ /(data.*?cbr 128)/sg;
  for my $data(@data){
      my ($id,$ip) = $data =~ /(data\s*[\d\/]+).*?protocol ip ((?:\d{1,3}\.){3}\d{1,3})/s;
      push @{$hash{'ATM'.$bez}}, [$id,$ip];
  }

 }
  
 for my $atm(keys %hash){
  print sprintf("%10s | %10s | %15s\n",$atm,'data','IP');
  print sprintf("%10s | %10s | %15s\n",' ',@$_) for @{$hash{$atm}};
 }
}

           |        data   |              IP
           |     22/180 |    10.200.50.81
           |     22/190 |    10.200.50.83
         

$query= "INSERT INTO RC_CISCO_NB(ID,NEID,TS,VPI,VCI,PCR,data,IP) VALUES(' ','$neid',NOW(),'','','','','')";
               
     $sth = $dbh->prepare($query) or die "Querry Error prepare: $DBI::errstr\n";
          $sth->execute or die "Querry Error execute: $DBI::errstr\n";
          $datarefid = $dbh->{'mysql_insertid'};
          $sth->finish();