use Getopt::Std;        # Bearbeiten der Aufrufparameter mit getopts().
use File::Basename;     # für basename()

[...]

param();

[...]

sub param {
    our ($opt_h, $opt_w) = ('', '');

    syntax('Unbekannte Optionen') unless getopts('hw');
    syntax() if $opt_h;
    $Config{angedockt} = length($opt_w) ? 0 : 1;
} # sub param


sub syntax {
    print STDERR "Fehler:\n\t", @_, "\n" if scalar(@_);

    print "Syntax:\n\n\t", basename($0), " [-h] [-w]\n\n",
          "Optionen:\n",
          "    h : Gibt diesen Hilfetext aus.\n",
          "    w : Im eigenen Fenster (nicht angedockt)\n";

    exit scalar @_;
} # sub syntax