sub xprintf {
    my( @args ) = @_;
    push @aglobal, sprintf @args;
  }

##</code><code>##

  sub xprintf {
    my( $fmt, @args ) = @_;
    push @aglobal, sprintf $fmt, @args;
  }

##</code><code>##

  @args = ( "We see '%s'\n", 'wowza' );
  printf @args;

##</code><code>##

  @arghs = ( "We see '%s'\n", 'wowza' );
  $s = sprintf @arghs;