#!/usr/bin/perl
use strict;
use warnings;
use Net::Telnet;


print "Enter your device: ";
my $device = <STDIN>;





my $telnet = new Net::Telnet  (Timeout=>15
        ,Input_log => "received_data.txt"
        
);

$telnet->open($device);
$telnet->waitfor('/username: /i');
$telnet->print('xxxx');
$telnet->waitfor('/password: /i');
$telnet->print('xxxx');
$telnet->waitfor('/$device"."# /i');   ##wait for prompt
$telnet->print ('show run');


$telnet->print('exit');

my $out = $telnet->waitfor('/$device"."# /i');

print $out;

$telnet->close();



my $fname = "received_data.txt";

open (my $fh, "<", $fname) or die "Can't open";
while (<$fh>) {
        print if /ip prefix-list/;
		}