Select Code to Download

$telnet->prompt('/\w+# $/');
$telnet->waitfor($telnet->prompt);

#!/usr/bin/perl
use strict;
...
while (<$fh>) {
        print if /ip prefix-list/;
        }