my $offset = sub {
   my $args = shift or \&errmsg;
   ...
}