#!perl BEGIN { $|=1; print "Content-type: text/html\n\n"; use CGI::Carp('fatalsToBrowser'); } use strict; use warnings; use CGI qw(:standard escapeHTML); use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 95)"); &ParseList; exit; sub ParseList { my(@list, $line, $first, $last, $content, $profile); if( param('input') =~ /^(\w.*)$/ && -r $1 ){ open(IN, "<$1") || print "$!"; @list = ; close(IN); }else{ print "

Could not read from INPUT file

"; exit; } foreach $line (@list){ chomp($line); ($first, $last) = split(/\|/, $line); $content = AimAgent($first,$last); if( $content =~ /