use Net::SMTP;
$var1="value1";
$var2="value2";
 &sendm($var1,$var2);

sub sendm() {
        my $emailid = $_[0];
        my $subject = $_[1];

        $smtp->to('$emailid\@address.com'); 
        smtp->datasend("To: $mailid\@address.com\n");
}