my $file = shift(@_);
    my @directories = @_;