#!/usr/bin/perl
use 5.014;                  # use 5.014 is effectivly the same as use strict.  Do it. 
use File::Spec;             # you can't use File::Spec and components until you've
                            # imported the module and its components
my ($FILE, @FILES);         # strict requires my; more important, it will tell you about many goofs
my $dirname="...