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