#...
print "Tell me your name.\n" # Implied "print <STDOUT> ..."
chomp(my $name = <STDIN>);
unless ($name) {
   print STDERR "User did not provide a name...\n";
}
#...