test1 test2 test3

##</code><code>##

print "Content-type: text/html\n\n";

use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

print "The following options have been selected:<br>\n";
print "<br>\n";

my %form;

foreach my $p (param()) {
    $form{$p} = param($p);
    print "$p = $form{$p}<br>\n";
    print LOG "$form{$p}\n";

}

my @apps = qw($form{'AppName'});

foreach my $i (@apps) {
        print "<br>\n";
        print "$i\n";
}
print end_html;