#!/usr/bin/perl

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

GetOptions( 'change' => \my $change );

if( $change ){
    print "change gesetzt";
}
else{
    print "change nicht gesetzt";
}