#!/usr/local/bin/perl
my $FILEDIR = "../YYYYY";
my $TITLE = "★読込＆保存★";
use strict;
use CGI;
my($q) = new CGI;
my($cont) = $q->param("text");
my($file) = $q->param("file");
my($f) = $FILEDIR . "/" . $file;
open(FILE, ">$f");
print FILE $cont;
close(FILE);
print "Content-Type: text/html\n\n";
print <<"EOF";
$TITLE
(保存後であれば) $file は、保存されました!
ファイル名：
あるいは
bookmark.txt