-   die(&pwarn($comm)) if $topline =~ /\#\!.*perl/i ;
+   die(&pwarn($comm)) if $topline =~ /\