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();

##</code><code>##

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/cert.pem -oemhpfiletype csr";
@lines = $con->cmd(String => $load_firmware, Prompt => $prompt);
print join "\n",@lines;
@lines = $con->cmd(String => 'reset', Prompt => '/Map1 reset\./');
$con->close();

##</code><code>##

my $cmd = "perl firmwareupdate.pl"

if ( system($cmd) == 0 ) {
print "sucess\n";
} else {
print "Failed\n";
}

$cmd = "perl loadcert.pl"

if ( system($cmd) == 0 ) {
print "sucess\n";
} else {
print "Failed\n";
}