Do you want to proceed with router config?
Input "y" to proceed, or "n" to abort
y
yThe file is:temp_config
The router is 150.1.1.1
R1#conf t
Enter configuration commands, one per line.  End with CNTL/Z.
R1(config)#interface FastEthernet0/1.30
R1(config-subif)# bandwidth 10000
R1(config-subif)# encapsulation dot1Q 30
R1(config-subif)# ip address 10.248.223.85 255.255.255.252
R1(config-subif)# no ip redirects
R1(config-subif)# no ip unreachables
R1(config-subif)# no ip proxy-arp
R1(config-subif)# no snmp trap link-status
R1(config-subif)# no cdp enable
R1(config-subif)# no shutdown
R1(config-subif)#$0 conform-action set-prec-transmit 1 exceed-action drop
R1(config-subif)#$0000 3840000 conform-action transmit exceed-action drop
R1(config-subif)#end

##</code><code>##

R1#conf t
Enter configuration commands, one per line.  End with CNTL/Z.
R1(config)#interface FastEthernet0/1.30
R1(config-subif)# bandwidth 10000
R1(config-subif)# encapsulation dot1Q 30
R1(config-subif)# ip address 10.248.223.85 255.255.255.252
R1(config-subif)# no ip redirects
R1(config-subif)# no ip unreachables
R1(config-subif)# no ip proxy-arp
R1(config-subif)# no snmp trap link-status
R1(config-subif)# no cdp enable
R1(config-subif)# no shutdown
R1(config-subif)# rate-limit input 10240000 1920000 3840000 conform-action se$ input 10240000 1920000 3840000 conform-action set         -prec-tra40000 1920000 3840000 conform-action set-prec-tran         smit 1 ex000 3840000 conform-action set-prec-transmit 1 exc         eed-actio conform-action set-prec-transmit 1 exceed-action          drop
R1(config-subif)# rate-limit output 10240000 1920000 3840000 conform-action t$ output 10240000 1920000 3840000 conform-action tr         ansmit ex240000 1920000 3840000 conform-action transmit exc         eed-actio0000 3840000 conform-action transmit exceed-action          drop
R1(config-subif)# end

##</code><code>##

       $session->login('user', 'cisco');
       $session->enable("cisco123");
       # feed in command file line-by-line
       while (<$tmp_fh>) { 
            my @output = $session->cmd("$_");   
            print @output;              
           };
       $session->close;