use strict;
use warnings;

my $input = "";

while ( $input eq "" ) {
    print "input: ";
    $input = <STDIN>;
    chomp $input;
}