##
my $filename = $hash{LIS_FILE};
$filename = $hash{LIS_FILE_TEST} if $node eq 'cad2';
####
my $filename = $node eq 'sam' ? $hash{LIS_FILE} : $hash{LIS_FILE_TEST};
####
my ($arg, $arg2,
$argument, $another_arg,
$yet_another, $and_another,
$still_more, $last_argument ) = @_;
####
# prospect_id
my $prosp_id = shift @_;
####
$line = ;
while(){
$line .= $_;
}