Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print "cmd was: $cmd\n";
}
print "loop exited\n";

my $cmd="";
until ($cmd !~ /^\s*$/){print "enter cmd: "; $cmd=<STDIN>;}

chomp $cmd;
print "cmd was: $cmd\n";