$ARGS = @ARGV;
if ( -t and $ARGS eq 0 ) {
}

##</code><code>##

die "No input found\n" if ( -t and @ARGV == 0 );

##</code><code>##

$names++, shift if $ARGV[0] eq "-l";

##</code><code>##

@ARGV = "-" unless @ARGV;

##</code><code>##

exit 0 unless ( grep { -T or $_ eq "-" } @ARGV );