#9 scripts run very slow on 2924, but, very fast on 2950

[Anonymous]

This scripts run very slow on 2924, but, very fast on 2950.

use Net::Telnet::Cisco;
$session = Net::Telnet::Cisco->new(Host =>
$line,Input_log => "input-2.log",Output_Log =>
'output-2.log',
option_log => 'telnet-2.log',Errmode=> 'return');
open (CUMULATIVE, ">> reload_report-2.pl.log");
$session->login('swid','diws');
$session->enable("$enpw");
$session->cmd(String => 'conf t');
$session->cmd(String => 'interface fastEthernet 0/1');
@output = $session->cmd(String => "port storm-control
broadcast threshold rising 500 falling 300");
@output = $session->cmd(String => "port storm-control
broadcast action shutdown");
@output = $session->cmd(String => "port storm-control
broadcast trap");
$session->cmd(String => 'interface fastEthernet 0/2');
@output = $session->cmd(String => "port storm-control
broadcast threshold rising 500 falling 300");
@output = $session->cmd(String => "port storm-control
broadcast action shutdown");
@output = $session->cmd(String => "port storm-control
broadcast trap");

This just show part of the script. Any ideas?

cyberrbc@yahoo.com