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