Newbee - kan ikke opdele input

hejsa.
Jeg sidder og roder ludt rundt med et script. det ser således ud og jeg kan ikke få det til at dele indholdet op i tre dele. nogen der kan hjælpe *S

*#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "indhold fra box 1,2 og 3 er: ";
print $ENV{'QUERY_STRING'}; ## den skriver indholdet af input fra html

### Input bliver læst og delt
read(STDIN, $bufferdrengen, $ENV{'CONTENT_LENGTH'});
@data_par = split(/&/, $bufferdrengen);

### De enkelte dele deles op i navn/indhold
foreach $enkelt_par (@data_par) {
  ($box1, $indhold) = split(/=/, $enkelt_par);

### Er kun en test der skulle vise indholdet af box1 og 2
$box1 = 'test';
$box2 = 'test2';

### her skulle de vise indholdet af box1 og 2
print "From: $INFORMATION{'box1'}\n";
print "To: $box2\n";
print "Subject: derer skrevet \n\n";
print "$INFORMATION{'bufferdrengen'} skriver:\n\n$INFORMATION{'kommentar'}\n";

}  # slut unless


Er der nogen der kan hjælpe mig ? Jeg skulle ha lavet en lille signup form, men kan ikke finde ud af det og har kigget på webcafe.dk for at følge 2undervisningen" der men ikke ret meget af det de har der virker.

/Mille