Yes, I understand now. Try:

BEGIN{$x='s!.!chr(ord($&)+1+0)!eg;';$t=shift@ARGV;}
END{$x=~s/\+/-/;$x=~s#0#'time()/'.(time+$t*86400)#e;
print"\n$0\n$x\$SIG{'__WARN__'}=sub{}; eval or die 
\"Evaluation time expired\\n\";"}
$.==1 and $_.="\$_ = <<'$0';\n" and next; eval$x;
[download]

Update: this isn't funny anymore since his code has been updated.