Select Code to Download

$ 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.
...
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; my $foo; if( 0 ){ $foo = 1; } el
+se { $foo = 2; } "

    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;