Undefined subroutine

[Trihedralguy]

I'm having problem debugging something that is wrong with my perl program. So I came to the Monastery to get a couple of extra sets of eyes.

The error I'm getting is: Undefined subroutine &ModPerl::ROOT::ModPerl::Registry::home_trihedralguy_htdocs_smi_employment_app_register_2ecgi::send_email

Can anyone see what I'm doing wrong? The Code Snippet from the calling script:

use lib '/home/thertzel/htdocs/smi/employment/app/'; #Current Director
+y
use EmailSender; #The name of the module
send_email($username, $body); #we need to send it our username and the
+ preformed message.

the PM File:

package EmailSender;

use Net::SMTP;
use strict;

sub send_email {

my $username = shift;
my $body = shift;

my $smtp; #Define Scalar for Net::SMTP

#Mail Settings
$smtp = Net::SMTP->new(
            Host => 'smtp.smi.com',
                Timeout => 30,
                     Debug   => 1,
        );
#End Mail Settings

$smtp->mail('[e-mail]');
$smtp->to($username);
$smtp->data();

$smtp->datasend("To: $username\n");
$smtp->datasend("From: humanresource\@foobar.com\n");
$smtp->datasend("Subject: Smi Employment Application\n");
$smtp->datasend("Content-Type: text/plain; charset=\"iso-8859-1\"\n");

$smtp->datasend(qq^
$body
^);

my $errormsg = $smtp->status();

$smtp->dataend();

$smtp->quit;

#return $errormsg;

}

1;