Código
#!usr/bin/perl #SerialFinder 0.2 #By Doddy H use Tk; use Tk::PNG; if ($^O eq 'MSWin32') { use Win32::Console; Win32::Console::Free(); } my $ventana = MainWindow->new(); $ventana->title("SerialFinder 0.2 By Doddy H"); $ventana->geometry("370x300+20+20"); $ventana->resizable(0,0); $ventana->Radiobutton(-text =>"serials.be", -value => "serials.be",-variable=> \$op)->place(-x=>130,-y=>130); $ventana->Radiobutton(-text =>"serials.ws", -value => "serials.ws",-variable=> \$op)->place(-x=>130,-y=>160); $ventana->Radiobutton(-text =>"cracks.vg", -value => "cracks.vg",-variable=> \$op)->place(-x=>130,-y=>190); $ventana->Radiobutton(-text =>"serialportal.com", -value => "serialportal.com",-variable=> \$op)->place(-x=>130,-y=>220); $ventana->Radiobutton(-text =>"freeserials.ws", -value => "freeserials.ws",-variable=> \$op)->place(-x=>130,-y=>250); MainLoop; sub now { my $link; my $test = $p->get; if ($op eq "serials.be") { $link = "http://www.serials.be/search_serial.php?serial=".$test; } elsif ($op eq "serials.ws") { $link = "http://www.serials.ws/?chto=".$test; } elsif ($op eq "cracks.vg") { $link = "http://www.cracks.vg/search.php?query=".$test; } elsif ($op eq "serialportal.com") { $link = "http://www.serialportal.com/search.php?serial=".$test; } elsif ($op eq "freeserials.ws") { $link = "http://www.freeserials.ws/?q=".$test."&Search=Search"; } else { $link = "http://www.google.com.ar/search?q=como aprender a escribir"; } } # The End ?