no strict ;

  announce(STDERR, "Hello World\n") ;

  sub announce {
    my $FH = shift ;
    print $FH @_ ;
  } ;