sub anmelden
[
   ...
    my $smtp = Net::SMTP->new("localhost");
   $smtp->mail("automat\@try2flirt.de");
   $smtp->to($email);
   $smtp->data();
   $smtp->datasend("Subject: Deine Zugangsdaten für Try 2 Flirt\n");
   $smtp->datasend("To: $email\n");
   $smtp->datasend("\n");
   $smtp->datasend("Hi $username,");
   $smtp->datasend("\n");
   $smtp->datasend("\n");
   $smtp->datasend("Deine Kennung bei try2flirt.de lautet: '$username'.\n\n");
   $smtp->datasend("Dein Passwort ist: '$pass'\n\n");
   $smtp->datasend("Bitte achte auf Groß- Kleinschreibung.\n\n");
   $smtp->datasend("Herzlichst,\n\n");
   $smtp->datasend("Dein Try2Flirt-Team\n\n\n");
   $smtp->datasend("---------------------------------------------------------------------------\n");
   $smtp->datasend("Haben Sie noch Fragen? Dann mailen Sie uns: support\@try2flirt.de\n");
   $smtp->dataend();
   $smtp->quit;
}

sub passwort_vergessen
{
   ...
    my $smtp = Net::SMTP->new("localhost");
   $smtp->mail("automat\@try2flirt.de");
   $smtp->to($email);
   $smtp->data();
   $smtp->datasend("Subject: Deine Zugangsdaten für Try 2 Flirt\n");
   $smtp->datasend("To: $email\n");
   $smtp->datasend("\n");
   $smtp->datasend("Hi $username,");
   $smtp->datasend("\n");
   $smtp->datasend("\n");
   $smtp->datasend("Deine Kennung bei try2flirt.de lautet: '$username'.\n\n");
   $smtp->datasend("Dein Passwort ist: '$pass'\n\n");
   $smtp->datasend("Bitte achte auf Groß- Kleinschreibung.\n\n");
   $smtp->datasend("Herzlichst,\n\n");
   $smtp->datasend("Dein Try2Flirt-Team\n\n\n");
   $smtp->datasend("---------------------------------------------------------------------------\n");
   $smtp->datasend("Haben Sie noch Fragen? Dann mailen Sie uns: support\@try2flirt.de\n");
   $smtp->dataend();
   $smtp->quit;
   ...
}