This is example of database. 07.11.2001|Hello World1|www.domain1.com|Your Comments in Here 07.12.2001|Hello World2|www.domain2.com|Your Comments in Here 07.13.2001|Hello World3|www.domain3.com|Your Comments in Here 07.14.2001|Hello World4|www.domain4.com|Your Comments in Here ##

##

#This is array to read from bottom to top.
my @all_array;
open(FILE,"$datadir/$datafile") || &Errormsg("Please correct your path or chmod of database.");
while () {
    @_ = split /\|/;
    my $hash_ref = {
        DATE => $_[0],
        TITLE => $_[1],
        URL => $_[2],
        COMMENTS => $_[3],
    };
push @all_array, $hash_ref;
}
close(FILE);
foreach (reverse @all_array) {
    print "";
    print "  ";
    print "    ";
    print "  ";
    print "  ";
    print "    ";
    print "  ";
    print "$_->{'TITLE'}
Posted - $_->{'DATE'}
$_->{'COMMENTS'} ({'URL'}\" target=\"_blank\">more information)

";
}