my %params = $q->Var;
for my $k (sort keys %params)
{
    print FILEHANDLE "$k|$params{$k}";
}