#!/usr/bin/perl -w use strict; use CGI; use CGI ':standard'; use CGI::Carp qw/fatalsToBrowser /; my $q = CGI->new(); my $path_to_text="/home/nolaflash/www/exp/news/body.txt"; my $post_number; print header; #only just beginning to work out using standard print "
"; print "
\n"; print ""; print ""; open (FH, "$path_to_text") or die "where's the damn file? : $!"; $/="\n\n"; #set the input Record seperator to a double newline while () { next if /^\n+$/; #ignore lines which contains only newlines $post_number++; print "\n"; print "\n"; print ""; #appending darkline print "\n"; } close FH; print ""; print "
"; print "

Edit Your Posts

Delete This Post?
$_\n"; #print the textblock in a nested table with an ... print "
 
"; exit;