#!/usr/bin/perl 

use CGI qw/:standard/;
use CGI qw/:fatalsToBrowser/;

use warnings; 
use strict; 

print header, start_html("test");
my $geturl = url_param('geturl'); 
my $commentid; 


if($geturl eq "") 
{ 
    &get_url; 
} 
else 
{ 
    &get_site; 
    &print_form; 
} 

sub get_url 
{ 
   print qq(<form name="geturl" name="geturl" method="get" action="wp.pl">); 
   print qq(URL: <input type="text" name="geturl">); 
   print qq(<input type="submit" name="submiturl"></form>); 
} 

sub print_form 
{ 
  print "test 1"; 
} 


sub get_site 
{ 
   use LWP::Simple; 
   my $content = get($geturl); 

  print "test";
 }