use CGI qw( param ); ... sub save_information { my $text1 = param('text1'); my $text2 = param('text2'); open(INFO, ">>testing123.txt"); # Open for appending print INFO "$text1 , $text2\n"; close (INFO); print <

Thank you for saving your file...

END }