Shell Programming and Scripting

#This part of the script will send the email notification
my $to='mohamed.rahman@noridian.com';
my $from='xyz@hotmail.com';
my $subject='POS_CODES_38 DATA LOADED SUCCESSFULLY.';
my $message='The total no. of files loaded into the POS_38 table are:';

# send email using UNIX/Linux sendmail
open(MAIL, "|/usr/sbin/sendmail -t");
my $out = "testing";

## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "Message: $message\n";
## Mail Body
print MAIL $out;
close(MAIL);

$ perl -le 'print $==()=<>' 2011040875770.MBT.A0MW9693.NDM.HBIDT.AD38XADJ.txt

system ("/usr/local/pl/perlencrypt.pl -k /kda1/system/ealgorithm -d /sdr1/system/db100zx02222pw | sqlldr userid=$dbuser DATA=$infile control=$confile log=$log
File");