Ok, one more limb, this is but a mere hailmary guess.

what if you first have to be in the console before even escape works?

so in the original test code replace

my $switchexit = $obj->print("\037"); # <== PROBLEM
[download]

with

$output = $obj->put("\x0a"); 
Sleep 1; # give it time to start the console; 
$output = $obj->put("\x1f"); 
Sleep 1; # give it time to for a  "time guard interval" ;
[download]

Sorry about going back to hex, i dont think as well in octal.