use feature qw(state);
  use Type::Params 1.004000 qw(compile_named_oo);
  use Types::Standard qw(FileHandle HasMethods Str);
  
  sub htmlprint {
    state $check = compile_named_oo(
      file   => FileHandle | HasMethods['printf'],
      text   => Str,
      colour => Str, { default => "black" },
    );
    my $arg = $check->(@_);
    
    $arg->file->printf(                     # not $arg->{file}
      '<span style="color:%s">%s</span>',
      $arg->colour,                         # not $arg->{colour}
      $arg->text,                           # not $arg->{text}
    );
  }