Select Code to Download

my $prompt = '/\/\.\/->/';
my $con = new Net::Telnet(Timeout => 400, Prompt => $prompt);
...
print join "\n",@lines;
@lines = $con->cmd(String => 'reset', Prompt => '/Map1 reset\./');
$con->close();

my $prompt = '/\/\.\/->/';
my $con = new Net::Telnet(Timeout => 400, Prompt => $prompt);
...
print join "\n",@lines;
@lines = $con->cmd(String => 'reset', Prompt => '/Map1 reset\./');
$con->close();

my $cmd = "perl firmwareupdate.pl"

...
} else {
print "Failed\n";
}