$firstChoice and $secondChoice

#!/usr/bin/perl use strict; use warnings; use CGI; my $buffer; read STDIN, $buffer, $ENV{'CONTENT_LENGTH'}; my ($firstChoice, $secondChoice) = split /&/, $buffer; s/[^=]*=// for $firstChoice, $secondChoice; my $fileName = "$firstChoice$secondChoice.html"; open my $fOut, '>', $fileName or die "Failed to open >$fileName<: $!\n"; print $fOut < $firstChoice and $secondChoice You chose $firstChoice and $secondChoice HTML close $fOut; print "Location: dynamics/$fileName\n\n";