tie my @file, 'Tie::File', $File::Find::name or die "Can't
+ tie $File::Find::name $!";
        splice @file, 0, 4;
        untie @file;