{beginner/script/perl} Google dorking in Perl

This is my first script in perl, despite be so beginner.. is useful. Although not filter through JSON or AJAX, is useful. :)

Usage: gdork.pl <dork>

when print "Dorked" is finished.
Enjoy.