use Cwd; my $dir = getcwd; opendir (DIR, $dir) or die $!; my @dir = readdir DIR; rewinddir(DIR); my @perlFiles = grep /\.pl/, readdir DIR; print '
'; foreach my $item (@perlFiles) { print $item . ':'; } print '
';