#!/usr/bin/perl -w 
######################################################################
# getopt.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use Getopt::Std;

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

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

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