# try "$ def/user X Y"
if ($ENV{X} && $ENV{X} =~ /Y/) {
        print $ENV{X}, "\n";
}
my $whatever = shift @ARGV or die "Why do I get %SYSTEM-F-NOLOGNAM?";
exit 0;