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

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