$|++; my $argument = $ARGV[0] || warn "No argument given\n"; do { print "Enter an argument: "; chomp ($argument = ); } while (!length($argument));