What drives me nuts is it returns "xx.txt" if "xx.txt" was passed to the "glob" even if "xx.txt" does not exist.

foreach my $file_spec ( @ARGV )
{
  my @files = glob( $file_spec );
  foreach my $file ( @files ) 
  {
    if ( not(-e $file)
      and ( $file =~ /[.*]/ ) ) # change as appropriate
    {
      warn "Error: file $f doesn't exist,"
         . " or wildcard didn't match, " unless -e $file;
} } }
[download]