sub good { my @info = @_; my $title = "Registration successful!"; my $revised = scalar localtime; my $body = < HTML open USRNF,">>$file" or die "Couldn't find user file $file, Perl says $!\n"; print USRNF join "#", @info; print USRNF "\n"; close USRNF; open PASS,">>$pass" or die "Coundn't find user file $pass, Perl says $!\n"; print PASS $user_name; print PASS "\\"; print PASS &encryption($password); print PASS "\n"; close PASS; return $title, $body; }