Select Code to Download

#!/usr/bin/perl

...
while ( (my $cmd = $term->readline($prompt)) ne 'quit') {
    print "cmd: '$cmd'\n";
}