Help for this page

Select Code to Download

Select or download this

    if($params{FORM_POST}){$_=decode 'UTF-8',$_ for(@$ref_userdata);}
    if($params{FROM_FACEBOOK}){$_=encode 'UTF-8',$_ for(@$ref_userdata
+);}
    open WH,">:encoding(UTF-8)","$dir/private_data" or die $!."$dir/pr
+ivate_data";
    print WH "$_|" for(@$ref_userdata);
    close WH;