my $To      = ""; $To      = shift;
my $Cc      = ""; $Cc      = shift;
my $Subject = ""; $Subject = shift;
my $Body    = ""; $Body    = shift;