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