#! /usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

my $zustand = 1;

GetOptions('-z=n' => \$zustand,);

print $zustand,"\n";