sub Irgendwas {
  my ($filename) = @_;

  open (my $FH, "<", $filename) or die "Error: $!";

  local $_;
  while( <$FH> ) { last if /^\s*\#/ }

  return $_;
} # Irgendwas