-if ( $us eq "ee" ) { $comm = ';'; } else { $comm = '#'; } +if ( $us eq "ee" ) { $comm = ';'; } else { $comm = ' #### - die(&pwarn($comm)) if $topline =~ /\#\!.*perl/i ; + die(&pwarn($comm)) if $topline =~ /\ #### - if ( $topline =~ /(\s+)\#\!/ ) { + if ( $topline =~ /(\s+)\