#!/usr/bin/perl -T

use strict;
use warnings;
use CGI qw(:standard);

print header,start_html('mini cms');

if (param('content')) {
   open FILE,'>','CONTENT' or error("Can't write content file: $!");
   print FILE param('content');
   close FILE;
}

open FILE,'<','CONTENT' or error("Can't read content file: $!");
my $content = do{local $/; <FILE>};
close FILE;

print start_form,
   textarea(content => $content, 10,50),br,
   submit,
   end_form,
   div({id=>'content'},$content),
;

sub error {
   print pre(shift),end_html;
   exit;
}