#!/usr/local/bin/perl

# ben adida (benjamin@media.mit.edu)

do 'user-agent.pl';
do 'referer.pl';

sub get_user_info {
    local($USER_AGENT)= &get_user_agent();
    $result="USER AGENT : $USER_AGENT\n";
    return $result;
}
