my $puserfile = "$SAVE_DIRECTORY/$puser"; open my $puserfn, '>', $puserfile or die "Cannot open $puserfile for writing: $!";