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