my $result = GetOptions ("change" => \&change,
            );


if(!@ARGV) {
print "Hallo!\n";
print "------------------------------------------------------\n";
print "-c / --change \t changes all files\n";
exit();
}

sub change {
print "foo";
}