Código
#!usr/bin/perl #GoogleHack 0.3 #By Doddy H #Based in the program GoogleHacks use Tk; use Tk::PNG; if ($^O eq 'MSWin32') { use Win32::Console; Win32::Console::Free(); } my $ventana = MainWindow->new(); $ventana->title("GoogleHack 0.3 By Doddy H"); $ventana->geometry("370x300+20+20"); $ventana->resizable(0,0); $ventana->Radiobutton(-text =>"Programs", -value => "programs",-variable=> \$op)->place(-x=>140,-y=>160); $ventana->Radiobutton(-text =>"Videos", -value => "videos",-variable=> \$op)->place(-x=>140,-y=>220); $ventana->Radiobutton(-text =>"Torrent", -value => "torrent",-variable=> \$op)->place(-x=>140,-y=>250); MainLoop; sub now { my $test = $v->get; my $link; if ($op eq "music") { $link = '-inurl:(htm|html|php) intitle:index of +last modified +parent directory +description +size +(.mp3|.wma|.ogg) "'.$test.'"'; } elsif ($op eq "programs") { $link = '-inurl:(htm|html|php) intitle:index of +last modified +parent directory +description +size +(.exe|.zip|.ddl) "'.$test.'"'; } elsif ($op eq "book") { $link = '-inurl:(htm|html|php) intitle:index of +last modified +parent directory +description +size +(.txt|.pps|.lit|.odt|.doc|.rtf|.zip|.rar|.pdf|.chm) "'.$test.'"'; } elsif ($op eq "videos") { $link = '-inurl:(htm|html|php) intitle:index of +last modified +parent directory +description +size +(.mpg|.avi|.flv|.wmv|.di) "'.$test.'"'; } elsif ($op eq "torrent") { $link = "$test filetype:torrent"; } else { $link = "como aprender a escribir"; } my $final = "http://www.google.com.ar/search?q=".$link; } # The End ?