#!/usr/bin/perl -wT use strict; use warnings; use Template; use CGI qw/:standard/; my $template = Template->new; my $cgi = CGI->new; my $text = $cgi->param("text"); my $show; my $success; # Open this file my $file = "ezt.txt"; open my $fh, '<', $file; while(chomp(my $line = <$fh>)) { $show = "$line\n"; } # if doesnt exits then create it if (!$show) { unless(open FILE, '>'.$file) { die "\nUnable to create $file\n"; } # Write some text to the file. print FILE "Hello there\n"; print FILE "How are you?\n"; } # always append to text file if you want if ($text) { open(my $fd, ">>$file"); print $fd "$text\n"; $success = "New text added successfully to file."; } # close the file. close FILE; print "Content-type: text/html\n\n"; my $temp = < HTML $template->process (\$temp, { list => $show }) or die $template->error;