$ cat x.pl 
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

sub foo {
	my %arg = @_;
	print "Woo!\n";
	return;
}

foo (z => 3);
$ perlcritic --stern x.pl
x.pl source OK
$