while( <$FH> ) { last if /^\s*\#/ }
print "Der erste Kommentar oder shebang lautet: $_\n";