#!/usr/bin/perl use CGI; my $cgi=new CGI; print $cgi->header; $region = $cgi->param("region"); print <

cant excute the cgi what to do please help.

cant ee xcute the cgi please help

cant excute the cgi what to do please help. cant excute the cgi what to do please help.

cant excute the cgi what to do please help. cant excute the cgi what to do please help. cant excute the cgi what to do please help.

In Europa

HERE1 pageNumbers(); print <

HERE1 sub pageNumbers { $count = 0; open (FIN, "data.txt") or die "cant open the file "; while() { $count++ } $totalcount= $count; print "$totalcount \n \n "; #so put all the values inside an array say @total. $no_per_page=15; $total_pages=int((scalar $totalcount) / $no_per_page); print "$total_pages \n \n "; $remainder = (scalar $totalcount) % $no_per_page; if ($remainder) { $total_pages++; print $total_pages; } if($total_pages) { print <<"END";

END print "Page "; for $i (1 .. $total_pages) { if ($i == $page) { print "$i"; } else { print "$i"; } if ($i != $total_pages) { print " | "; } } print "

\n"; } } 1;