########################################################

#!/usr/bin/perl -w
my @{Files};
my ${FileName}      = "h[[^TV]]*.pl";
my ${f}             = "";

@Files  = <temp\${FileName}>;

printf ("\n##############[ ${FileName} ]####################\n");
foreach ${f} (@Files)
  { printf("${f}\n");

  }
printf ("##################################\n");

########################################################