my $filename = "";
$filename = $hash{"LIS_FILE"}      if ( $node eq "sam" );
$filename = $hash{"LIS_FILE_TEST"} if ( $node eq "cad2" );
chomp $filename;
my $htmfilename = "";
$htmfilename = $hash{"HTM_FILE"}      if ( $node eq "sam" );
$htmfilename = $hash{"HTM_FILE_TEST"} if ( $node eq "cad2" );
chomp $htmfilename;
my $sqt_path = "";
$sqt_path = $hash{"SQT_PATH"}      if ( $node eq "sam" );
$sqt_path = $hash{"SQT_PATH_TEST"} if ( $node eq "cad2" );
chomp $sqt_path;
my $database_name = "";
$database_name = $hash{"DB_NAME"}      if ( $node eq "sam" );
$database_name = $hash{"DB_NAME_TEST"} if ( $node eq "cad2" );
chop $database_name;

my $mail_server_name = "";
$mail_server_name = $hash{"MAIL_SERVER"}      if ( $node eq "sam" );
$mail_server_name = $hash{"MAIL_SERVER_TEST"} if ( $node eq "cad2" );

##</code><code>##

my $key_ext=$node eq "sam" ? "" : "_TEST";
my $filename         = $hash{"LIS_FILE"     .$key_ext};
my $htmfilename      = $hash{"HTM_FILE"     .$key_ext};
my $htmfilename      = $hash{"HTM_FILE_TEST".$key_ext};
my $sqt_path         = $hash{"SQT_PATH"     .$key_ext};
my $database_name    = $hash{"DB_NAME"      .$key_ext};
my $mail_server_name = $hash{"MAIL_SERVER"  .$key_ext};

##</code><code>##

error_msg( "SR", "OE", $row[5], $row[3],"A STRING","No Email Address." )
    if ( $invalid_sr && !$errnow );
$errnow = 1 
    if ( $invalid_sr && !$errnow );

##</code><code>##

$mail_server_name = $hash{"MAIL_SERVER"}      if ( $node eq "sam" );
$mail_server_name = $hash{"MAIL_SERVER_TEST"} if ( $node eq "cad2" );

##</code><code>##

if ( $invalid_sr && !$errnow ) {
   error_msg( "SR", "OE", $row[5], $row[3],"A STRING","No Email Address." )
   $errnow = 1;
}

##</code><code>##

if ( CONDITION ) {
     ACTION
} elsif ( OTHER-CONDITION ) {
     ACTION
} else {
     Maybe this shouldnt have been a possibility? Throw an Error?
}

##</code><code>##

sub foo {
   my $whatzit=shift; #key information for calculating the $snoozle
   my $baz    =shift; #Modifier, allows for negative $snoozle if this is set

##</code><code>##

sub foo {
   my $whatzit=shift # the whatzit

##</code><code>##

$sender = new Mail::Sender { smtp => $mail_server_name };

##</code><code>##

$sender = Mail::Sender->new( { smtp => $mail_server_name } );