#!/usr/local/bin/perl
$start = 1;
$end = 55;
foreach $count ($start .. $end) {
open (OUT, ">$count.html") ||
die "Couldn't open $count.html for output.\n";
select OUT;
print "\n\nSlides page $count\n\n";
print "\n\n\n\n\n\n\n";
if ($count != $start) {
$prev_page = $count-1;
print "Previous Page
\n";
print "First Page
\n";
}
if ($count != $end) {
$next_page = $count+1;
print "Next Page
\n";
}
print "\n\n";
close OUT;
}