Shell Programming and Scripting

#!/usr/bin/perl
my $dir = '/tmp';
my $fleidb = "2754";
print "$fleidb\n";
opendir(DIR, $dir) or die "Failed to open $dir: $!";
@FILES = grep { /^(new_grp*|^$fleidb\_*/)/ } readdir(DIR);
closedir (DIR);
####### Delete old files from /tmp
 print "Deleting following old Files from /tmp directory\n";
 #print "$FILES\n";
foreach $file (@FILES) {
   print "$file\n";
   unlink("$dir/$file") or die "Failed to remove $file: $!";
 }

@FILES = grep { /^(new_grp.*|$fleidb_.*/)/ } readdir(DIR);