home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Internet 1996 World Exposition
/
park.org.s3.amazonaws.com.7z
/
park.org.s3.amazonaws.com
/
Pavilions
/
BrainOpera
/
cgi-bin
/
user_info.pl
< prev
next >
Wrap
Perl Script
|
2017-09-21
|
226b
|
13 lines
#!/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;
}