#!/usr/bin/perl -w

use strict;

use CGI qw(:standard);
use CGI::Carp qw( fatalsToBrowser set_message );

my $q = new CGI;

print $q->header();

my $msg   = escapeHTML( scalar $q->param( 'msg' )) || 'No Msg';
my $error = escapeHTML( scalar $q->param( 'error' )) || ' No error';

my $error_msg = ($msg) ? $msg : ($error) ? $error : '';

print "<br><br>Msgs: $error_msg <br><br>";

exit;