Getting user agent

[Richie0x]

How do you get the user agent / browser info in perl?

[jdMorgan]

I've used this code:

# Get request header info
$reqmthd = $ENV{'REQUEST_METHOD'};
$reqhost = $ENV{'HTTP_HOST'};
$requri = $ENV{'REQUEST_URI'};
$referer = $ENV{'HTTP_REFERER'};
# Patch for 500-Server Errors in some server configurations
# if (exists($ENV{'HTTP_REFERER'})) { 
# $referer = $ENV{'HTTP_REFERER'};
# } 
# else { 
# $referer = "-";
# }
$usragnt = $ENV{'HTTP_USER_AGENT'};

Jim