# Perl Script to Delete Files Without Extension

I want to delete those files without the extension I need, so I just write this perl script. The directory can also be specified on the command line. I list all those extensions I need as a pattern.

I also wrote document for this scirpt. haha!