1 : use Cwd; 2 : 3 : my $dir = getcwd; 4 : my $dirPointer; 5 : 6 : opendir (DIR, $dir) or die $!; 7 : $dirPointer = telldir (DIR); 8 : 9 : my @dir = readdir DIR; 10: 11: seekdir (DIR, $dirPointer); 12: 13: my @perlFiles = grep /\.pl/, readdir DIR; 14: 15: foreach my $item (@perlFiles) { 16: print "$item\n"; 17: } 18: 19: closedir DIR;