Please enter phone

#### #!c:\perl\bin\perl print "Content type: text/html \n\n"; $input = ; @qsinfo = split (/\=/, $input); $fon = @qsinfo [1]; open (OUT, ">fon.txt"); print OUT $fon, "\n"; close OUT; print "Your fon has been entered";