$ perl -e " use strict; use warnings; if( 0 ){ my $foo = 1; } else { $foo = 2; } "
Global symbol "$foo" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.

$ perl -e " use strict; use warnings; if( 1 ){ my $foo = 1; } else { $foo = 2; } "
Global symbol "$foo" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.


##</code><code>##

$ perl -e " use strict; use warnings; my $foo; if( 0 ){ $foo = 1; } else { $foo = 2; } "

##</code><code>##

    my( $Flag1, $Flag2 ) = ProtsFlags( $Subj_id, \%proph_prots, \%euk_prots, \%vir_prots );

    $HoFlg1{$Query_id}{$Subj_id}{$bits} = $Flag1;
    $HoFlg2{$Query_id}{$Subj_id}{$bits} = $Flag2;