<��$������▒��    FF FD 24 FF FB 01 FF FB 03 FF FD 18 FF FD 1F                       
>��$������▒���� FF FC 24 FF FD 01 FF FD 03 FF FB 18 FF FB 1F FF FA 1F 00 89 00 1A FF F0             
<��$��▒��       FF FD 24 FF FA 18 01 FF F0                                                         
>��$��▒ FF FC 24 FF FA 18 00 78 74 65 72 6D FF F0                                                   
<                                                                                                   

User Access Verification

Username:       0D 0A 0D 0A 55 73 65 72 20 41 63 63 65 73 73 20 56 65 72 69 66 69 63 61 74 69 6F 6E 0D 0A 0D 0A 55 73 65 72 6E 61 6D 65 3A 20                                                                                                                                             
<��$    FF FD 24                                                                                                                             
>��$    FF FC 24                                                                                                                             
<��$    FF FD 24                                                                                                                             
>��$    FF FC 24

use Net::Telnet ();                                     
$t = new Net::Telnet (Timeout => 30, Prompt => '/#/'); 
$t->open("10.0.0.1") || die("False\n");                     
$t->login("login", "password");                   
$t->cmd(String => 'conf t', Cmd_remove_mode => 0);     
$t->cmd("ip access-list extended IPN");                 
$t->cmd("permit ip host 1.1.1.1 any");                 
$t->cmd("exit");