$time=time; $emit=reverse($time); $salt=substr($param1,0,2); $sess=crypt($emit,$salt); $sess=~s`\W``g; $sess=substr($sess,2); &krypt; $re="$param1=$sess\n"; open(SES,"$path_to_sessions"); while(){ unless(/^$param1=/){if(/\w+/){$sf.=$_}} } close(SES); $sf.=$re; open(SES,">$path_to_sessions"); print SES "$sf"; close(SES); print "Content-type: text/html\n\n"; print qq~ ~;