#!/usr/bin/perl -w
# die on input eq <CR> ("Enter")
# [id://733443] 

while (<STDIN>) {
    $in = $_;
    chomp ($in);
    unless (length($in)) {
        print "Enter is a command to quit" ;
        exit;
    } else {
        print "\$in is $in\n";
    }
}