Shell Programming and Scripting

#!/usr/bin/perl -w
 chdir '/projects/stp/stpbuild/logs/BuildLogs/';
 $a = `ls -ltr | grep STP-201211`;
 open (TEMP, "$a") || die "Unable to open file $a because $!\n";
 @files = (<$TEMP>);
 foreach $file (@files) {
   print $file . "\n";
 }

print "(($a))\n";

#!/usr/bin/perl -w
opendir my $dh, '/projects/stp/stpbuild/logs/BuildLogs/' or die "Could not opendir: $!\n";
for my $file (grep /STP-201211/, readdir $dh) {
 print "File : $file\n";
}