#!/usr/bin/perl

 
print "Content-type: text/html\n\n";
system("date > /newhome/kasra/o.txt");
print "<h2>Opening File index.html for Pinkfloyd.com<br>"; 
open(f,"/newhome/kasra/o.txt");
while(<f>){
print $_;
}
close(f);
print "<Form method=POST action=\"http://www.ezenet.com/cgi-bin/proc\">\n";

print "<HR>\n";



print "<TEXTAREA NAME=\"comments\" ROWS=30 COLS=80>\n";

open(f,"/usr/local/etc/httpd/htdocs/pinkfloyd/index.html");
while(<f>){

print $_;
}
close(f);








print "</TEXTAREA><P>\n";


print "<Input TYPE=\"submit\" VALUE=\"Save\">\n";

print "<Input TYPE=\"reset\" VALUE=\"Dont Save\"><p>\n";

print "</Form>\n";



