click <a href="/cgi-bin/index.pl">here</a>

 
#!/usr/local/bin/perl 
#!/usr/bin/perl 
use strict; 
use warnings; 
use CGI ':standard'; 
 
print header, 
    start_html('Player Point Tracker'), 
    h1('Kings of War'), 
    start_form, 
    'Players Name: ', 
    textfield('name'), br, 
    submit('Search!'), 
    end_form, p, 
    hr; 
 
print 'Your name is ', param('name'), br if param 'name'; 
print 'You are ', param('age'), ' years old.' if param 'age'; 
 print end_html;

click <a href="http://www.yoursite.com/cgi-bin/index.pl">here</a>

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use CGI ':standard'; 
 
print header, 
    start_html('Player Point Tracker'), 
    h1('Kings of War'), 
    start_form, 
    'Players Name: ', 
    textfield('name'), br, 
    submit('Search!'), 
    end_form, p, 
    hr; 
   $query->import('e.pl'); 
print 'Your name is ', param('name'), br if param 'name'; 
print end_html;

my $url = 'http://en19.tribalwars.net/map/tribe.txt'; 
use LWP::Simple; 
 
my $content = get $url; 
@array=split(/,/, $content); 
$n=1; 
$j=4; 
do 
{ 
         print "@array[$n] @array[$j]\n"; 
         $n=$n+5; 
         $j=$j+5; 
} 
while ($n<=$#array);

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use CGI ':standard'; 
 
print header, 
    start_html('Player Point Tracker'), 
    h1('Kings of War'), 
    start_form, 
    'Players Name: ', 
    textfield('name'), br, 
    submit('Search!'), 
    end_form, p, 
    hr; 
 
print 'Your name is ', param('name'), br if param 'name'; 
 
print end_html;