#!/usr/bin/perl -w use strict; use CGI qw( param header); $q = new CGI; my $tela = $q->param('tela'); my $yoken = $q->param('yoken'); if ($tela eq undef) { print header; print < seisei
Tela:

SEIFORM } else { print header; print < daiseikou

daiseikou

SUCCESS open(TELA, ">$tela.tela"); print TELA "$yoken"; print "$yoken"; }