#!/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="...