#!/usr/bin/perl -w
use strict;

my $cmd;
while ((print "enter cmd: "), $cmd=<STDIN> and $cmd !~/^\s*$/)
{
    chomp $cmd;
    print "cmd was: $cmd\n";
}
print "loop exited\n";