#!/usr/bin/perl

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

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

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

F:\>perl change.pl
change nicht gesetzt
F:\>perl change.pl -change
change gesetzt
F:\>