if(system('/usr/local/bin/AddVirtUser' => "tpasswd=$password",
              => $domain,
              => $username,   
              => $fullname,
              => 5,
              => '0 0 0',
   )){
        
####################################################
##
##           ACCOUNT FAILURE AREA
##
####################################################

# Send Failure E-Mail

open (MAIL, "|/usr/sbin/sendmail -t");
print MAIL <<"END_OF_MAIL";  #line 90
To: $email
Reply-to: support\@foo.bar
From: support\@foo.bar
Subject: Blah
              
Dear $fullname,

END_OF_MAIL
close (MAIL);