Select Code to Download

my $filename = "";
$filename = $hash{"LIS_FILE"}      if ( $node eq "sam" );
...
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" );

my $key_ext=$node eq "sam" ? "" : "_TEST";
my $filename         = $hash{"LIS_FILE"     .$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};

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

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

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

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

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

sub foo {
   my $whatzit=shift # the whatzit

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

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