my $file = File::Spec->catfile( $dir1, $dir2, $filename );
my $dir = File::Spec->catdir( $dir1, $dir2 );