require File::Spec;
local $_ = File::Spec->catpath(undef,$dir,$f);
my $np = File::Spec->catpath(undef,$dir,$f);