#! /usr/bin/perl
use strict;
use warnings;

use 5.020;
use Getopt::Long;

#> sub routines
#> --------------------------------------------------------------------

sub modified_warnings {
    my ( $message ) = @_;

    # Ersetze hier die generische Meldungen jeweils durch eine eigene
    $message =~ s/Unknown option: .+/Parameter - Fehler/;
    $message =~ s/Option (.+) requires an argument$/Parameter $1 benoetigt ein Argument./;

    print STDERR $message;
}



#> main programm
#> --------------------------------------------------------------------

my $foo = "default";
my $bar = "default";

{
    local $SIG{__WARN__} = \&modified_warnings;

    GetOptions(
        'foo:s' => \$foo,
        'bar=i' => \$bar,
    ) or die "Falsche Verwendung!\n";
};

say "Foo: $foo";
say "Bar: $bar";