Select Code to Download

@lines= $port->cmd("input keyevent 66"); # added i
print "Number of lines returned: ", scalar(@lines), "\n";
...
for( @lines ) {
    print ">$_<\n"
}