File::NCopy->new('set_permission' => sub { chmod 0644 ,$_[1] })->copy($file,"$filename");