#!/usr/bin/perl -wT


use strict;
use CGI qw/:standard/;
$CGI::DISABLE_UPLOADS =1;

my $page=param('page') || 0;
unless ($page =~ m/^(\d+)$/) { die }
$page = $1;


opendir(DIRE, "/home/lenn287/public_html/diary")|| er_msg("cant open directory: $!"); #UPDATED