Hacking The Google’s Doodle using Perl

Today, at office, around 4 p.m, the athleticism google’s doodle turns on in a competition between my peers, no matter how hard I tried I always got around 11.8 seconds, vs the best scored time with 10.8 seconds, clearly nerds don’t do excersices even on the keyboard, so, hands on Perl, and only using this lib X11::GUITest and this dummy code, I finally got 4.2 seconds, the average score time is 9.8 to 10.6 seconds.

On debian without pain:

aptitude install libx11-guitest-perl

#!/usr/bin/perl -w
use X11::GUITest qw/ PressReleaseKey /;
for my $stroke ( 1 .. 100000) {
PressReleaseKey(Right);
PressReleaseKey(Left); }

Powned..

Evidence of hack 😉