#!/usr/bin/perl -w 
######################################################################
# (c) Michael Schilli 1999
######################################################################

use Getopt::Std;

getopts('abf:', \%opt) || usage("usage:");

print "-a gesetzt!\n" if $opt{'a'};
print "-b gesetzt!\n" if $opt{'b'};
print "-f auf \"$opt{'f'}\" gesetzt!\n" if $opt{'f'};

sub usage {
    $0 =~ s#.*/##g;       # Win32: s#.*\\##g 
    print "usage: $0 [-a] [-b] [-f filename]\n";
    exit 1;
}