Shell Programming and Scripting

Can't call method "mail" on an undefined value at functions.txt line 153

sub ddlMail {
open (D_ALOG,"> D:/data/debug_mssql.$$.log");
 
 @ddl::env::EMAILLISTdd = split (",",$ddl::env::ddlversionEMAILLIST);
 $ddl::env::EMAILsubject = "$ddl::env::EMAIL_PREFIX1 $ddl::env::argvalueT $ddl::env::EMAIL_PREFIX2 $ddl::env::EMAILsubject";
$smtp = Net::SMTP->new('localhost');
if ( defined $smtp )
 {
 print D_ALOG "\n ddlMail::SMTP object defined\n";
 $mailman = `$ddl::env::WIN32_PATH\\whoami`;
 @mailman1 = split(/\\/,$mailman);
 chomp ($mailman1[1]);
 $mailhost = `$ddl::env::WIN32_PATH\\hostname`;
 chomp ($mailhost);
 $gdmgEmail=$ddl::env::DEFAULT_DDLEMAIL;
 
 $smtp->mail("abc@xyz.com");
 $smtp->to($ddl::env::DDLEMAIL2,@ddl::env::EMAILLISTdd); 
 
 $smtp->data;
 $smtp->datasend("From: $mailman1[1]\@$mailhost.nam.nsroot.net");
 $smtp->datasend("\n");
 $smtp->datasend("To: $ddl::env::ddlversionEMAILLIST,$gdmgEmail");
 $smtp->datasend("\n");
 $smtp->datasend("Subject: $ddl::env::EMAILsubject");
 $smtp->datasend("\n");
 $smtp->datasend("$ddl::env::contentofmail");
 $smtp->datasend("\n");
 $ddl::env::contentofmail12 = join("\n",@ddl::env::mailBodyArray);
 $smtp->datasend("$ddl::env::contentofmail12");
 $smtp->dataend;
 $smtp->quit;
}
 else
 {
  print D_ALOG "\n ddlMail::SMTP object NOT defined on the local host\n";
 }
 close (D_ALOG);
 
 }