This is S5-based presentation. If viewing in browser, using keyboard arrows to navigate between slides.
Sample of obfuscation (before and after):
my $error_level = 4; # error level to show alerts for sub log_error { my ($whereStr,$msg) = @_; log_common(3,"error:$whereStr",$msg); #call common function }
(my $zfafb4b3d80=(0x125a+ 395-0x13e1)); sub z9fe5826ce8 { (my ( $zce55a28aab,$zea4cd01646)=@_);za56048cb23 ((0x05b7+ 6823-0x205b),( "\x65\x72\x72\x6f\x72\x3a".$zce55a28aab),$zea4cd01646);}