sub save_information { read(STDIN, my $buffer,$ENV{'CONTENT_LENGTH'}); $buffer =~ tr/+/ /; $buffer =~ s/\r/ /g; $buffer =~ s/\n/ /g; my %formdata; my @pairs = split(/&/,$buffer); foreach my $pair(@pairs){ my ($key,$value) = split(/=/,$pair); $formdata{$key} .= "$value"; } my $text1 = $formdata{param('text1')}; my $text2 = $formdata{param('text2')}; open(INFO, ">>testing123.txt"); # Open for appending print INFO "$text1 , $text2\n"; close (INFO); print <

Thank you for saving your file...

END }