( my $name = $ARGV[0] ) && length $ARGV[0] > 2 or die "Usage: `$0 <name>` (min. 3 letters)";