Example code PNG


my $r = shift;
...
my $im_ext = accepts_png($r) ? "png" : "jpg";
print qq{<IMG SRC="arrow.$im_ext">};
...
$r->header_out('Vary', 'accept');
...
sub accepts_png { # naïve approach
  my $r = shift;
  $r->header_in("Accept") =~ m|image/png|i;
}

Internationalization
O'Reilly Apache Conference, 24 August 1999
Andreas König (on CPAN: ANDK)
<andreas.koenig@anima.de>