#!/usr/bin/perl -s

use Getopt::Sparse;

our ( $foo, $bar ) ;  # set on command line

sparse( foo => [ qw( f foo -foo --foo ) ],
        bar => [ qw( b bar -bar --bar ) ],
      );

print "foo: $foo\nbar: $bar\n" ;