Let's try something new

use v6; sub MAIN(Str $action, *@files, Bool :$verbose, Int :$count, Str :$message) { }

perl6 utility.pl6 Usage: utility.pl6 [--verbose] [--count=<Int>] [--message=<Str>] <action> [<files> ...]