I just joined this newgroup so if I am posting in the wrong place, please let me know nicely rather than bashing me for the inexperience ALL of you once had.
I have a problem with my script listed below. Any help would be GREATLY appreciated!! sulfericacid The errors I receive are: 1 Uncaught exception from user code: 2 Uncaught exception from user code: 3 Undefined subroutine &main::get called line 14. 4 main::BEGIN() called/usr/local/lib/perl5/site_perl/5.005/LWP/Simple.pm line 14 5 eval {...} called/usr/local/lib/perl5/site_perl/5.005/LWP/Simple.pm line 14 6 BEGIN failed--compilation aborted line 14. Script: #!/usr/local/bin/perl -w my %form; my $content; $userurl ="$form{'userurl'}"; print "Content-type: text/html\n\n"; use diagnostics; # compilation aborted use strict; use LWP::Simple $content = get($form{'userurl'}); use HTML::TokeParser my $p = HTML::TokeParser->new(\$content); my %meta; while (my $token = $p->get_token) { next unless $token->[1] eq 'meta' && $token->[0] eq 'S'; $meta{$token->[2]->{name}} = $token->[2]{content}; } print "$_: $meta{$_}<br>\n" foreach (keys %meta); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]