gistfile1.txt

┌─[tadzik@yavin]─[~/src/github/tadzik/Getopt-Type] 
└─[%]─> cat test.pl 
use Getopt::Type;

sub MAIN(*%opts where getopt(<f|force v|verbose>)) {
    say "Forcing!"   if %opts<force>;
    say "Verbosing!" if %opts<verbose>;
    say %opts.perl;
}
┌─[tadzik@yavin]─[~/src/github/tadzik/Getopt-Type] 
└─[%]─> perl6 -Ilib test.pl -fv
Forcing!
Verbosing!
{:f, :force, :v, :verbose}