#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
my $number_to_display = 1;
my $start = 1;
my $blogs;
getblogs($start, $number_to_display, @blog);
print start_html("SignGuy's Online Journal");
print h1("Congradulations!");
print p($blog[0]), br();
print end_html();

sub getblogs($start, $number_to_display, \@blogs) {
	open (BLOG, '<blog.db') || die "This script can't open the blog database $!"; #opening the blog
	#making the array to hold the info for 
#the numbered blogs
	my $x = $start, $y = $number_to_display;
	 #x is the number i'm going to test to see 
#if it's the number i'm supposed to start on
	 #y is the number i'm going to test to see 
#if i've displayed all my results or not
	while (<BLOG>)
		  {
		   		  if ($_ =~ /$x/)
				  	 {
			   	  		   		  $blogs[$number_to_display - $y] = <BLOG>;
					 			  $x--;
								  $y--;
								  if (!$x || !$y)
								  	 {last;}
					}
		}
}
	

_DATA_
3
This is a test blog.
2
Perl is my god!
1
Dan Simmons is a good author