you get this when stuff is undef easy fix to just check it like so... try

open USRNF,">>$file" or die "Couldn't find user file $file, Perl says 
+$!\n";
    print USRNF join "$var", @info if($var); # if defined
    print USRNF "\n" if($var); #may want this too
    close USRNF;
  


   open PASS,">>$pass" or die "Coundn't find user file $pass, Perl say
+s $!\n";
   print PASS $user_name;
   print PASS "\\";
   print PASS &encryption($password);
   print PASS "\n";
   close PASS;
[download]

:-)