my $p_sAction = $oCGI->param( "action" );
$p_sAction = decode( 'UTF-8', $p_sAction );
if ( !defined( $p_sAction ) ){
print $oCGI->redirect( "access-denied.pl?reason=110" );
exit;
}
print "Content-type: text/html\n\n";
print "p_sAction: #" . $p_sAction . "#
";
$aText{'1530'} = decode( 'UTF-8', $aText{'1510'} );
print "1510 --- #$p_sAction# eq #$aText{'1510'}#
";