#!/usr/bin/perl

  use strict;
  use warnings;

{
  local @ARGV = @ARGV;        # lokale Kopie von @ARGV anlegen

  while(<>) {
      print if not m(^#);     # gibt's aus wenn's kein Kommentar ist
  }
}
  printf("Groesze von \@ARGV: %d\n", scalar(@ARGV));