#!/usr/local/bin/perl
print "Content-type:text/html\n\n";
## Start html tag ##
print "
Recommend Site ; ;) {
}
กรุณากรอกข้อมูลเกี่ยวกับ Webpage ที่ท่านอยากจะแนะนำ
"
;
## End html tag ##
$filename = "add_data.txt";
open (FILE,$filename);
@line = ;
close(FILE);
@line = reverse(@line);
print @line;
print "";
## end program ##