HTTP_ACCEPT* keys in your %ENV should contain what you are looking for:

#!/usr/bin/perl

print "Content-type: text/plain\r\n\r\n";

while (($key, $value) = each %ENV) {
  print "$key\t$value\n";
}
[download]

Ciao, Valerio