#!/usr/bin/perl

use lib '.';
use strict;
use warnings;
use Parse_Form_Data qw ( parse_form_data );

my %parameters = parse_form_data();

print "Content-type: text/plain;charset=iso-8859-1\n\n";
print "here are our results...\n";

foreach my $parameter (sort keys %parameters) {
    #print "$parameter -> $parameters{$parameter}\n";
    foreach (split /:/, $parameters{$parameter}) {
        print "$parameter -> $_\n";
    }
}