my $prompt = '/\/\.\/->/';
my $con = new Net::Telnet(Timeout => 400, Prompt => $prompt);
$con->open("192.168.1.1");
$con->login("admin", "password");
my $prompt = '/\/\.\/map1\/firmware\/->/';
my @lines = $con->cmd(String => "cd /map1/firmware", Prompt => $prompt);
my $load_firmware = "load -source //14.0.1.0/test.bin -oemhpfiletype csr";
@lines = $con->cmd(String => $load_firmware, Prompt => $prompt);
print join "\n",@lines;
@lines = $con->cmd(String => 'reset', Prompt => '/Map1 reset\./');
$con->close();