Stupid Script -HELP!

This is NOT my day for perl. I am writing a script that lets you e-mail users. Take a look:

#Mail to ##################################
} elsif ($action eq "mailto") {
$user = $form{'user'};
{&header;}{&decodenames;}
print qq|
$user

Contacting $userb, $recipient
Name:
Age:
Location:
E-Mail:
Reason for Contact:

Reasons..
Site Problem
Hosting
Just for the Heck of it
Other

Comments:
  

|;
{&footer;}
#Send the mail! #########################
} elsif ($action eq "returnmail") {
$user = $form{'user'};
{&header;}{&decodenames;}
print qq|

E-mail was sent to $userb!

|;
{&footer;}
$mailprog = "/usr/sbin/sendmail";
open (MAIL, "|$mailprog -t") or dienice("Can't access $mailprog!\n");

print MAIL "To: $recipient\n";
print MAIL "Reply-to: $FORM{'email'}\n";
print MAIL "From: $FORM{'name'}\n";
print MAIL "Subject: $FORM{'prob'}\n";
print MAIL "Age: $FORM{'age'}\n";
print MAIL "Location: $FORM{'ocation'}\n";
print MAIL "Comments: $FORM{'comments'}";

close(MAIL);

}

--->Sub from script:

sub decodenames {
if ($user eq "laguna") {
$userb="Laguna Loire";
$recipient="laguna\@3dstream.net";
} elsif ($user eq "talon") {
$userb="Talon Raines";
$recipient="talon\@3dstream.net";
} elsif ($user eq "trepegroupie") {
$userb="Trepe Groupie";
$recipient="groupie_of_trepe\@yahoo.com";
} elsif ($user eq "azn") {
$userb="Azn Dragon";
$recipient="Azn_Dragon\@shinra.org";
}
}

The problem is that the server wont decode the $form('something') for some dang reason. Do you guys see what I mean?