foreach my $file (@files) {
    next if $file =~ m#/CVS/#;
    next if $file =~ m#~#;
    $file =~ s#^\./##;
    push(@noCvsDirs, $file);
}

##</code><code>##

my $full_file = ($dir eq '.' ? $file : "$dir/$file");

##</code><code>##

use File::Spec ();

my $full_file = (
   File::Spec->canonpath(
      File::Spec->catfile($dir, $file)
   )
);