Para usarlo tienen que instalar el modulo necesario de la siguiente manera.
Código:
ppm install http://www.bribes.org/perl/ppm/Net-Whois-Raw.ppd
Una imagen del programa
El codigo es
Código
#!usr/bin/perl #Whois Client 0.2 #Coded By Doddy H #ppm install http://www.bribes.org/perl/ppm/Net-Whois-Raw.ppd use Tk; use Tk::ROText; use Net::Whois::Raw; #if ( $^O eq 'MSWin32' ) { # use Win32::Console; # Win32::Console::Free(); #} my $color_fondo = "black"; my $color_texto = "cyan"; $yu = MainWindow->new( -background => $color_fondo, -foreground => $color_texto ); $yu->title("Whois Client 0.2 || Coded By Doddy H"); $yu->geometry("400x350+20+20"); $yu->resizable( 0, 0 ); $yu->Label( -text => "Page : ", -font => "Impact", -background => $color_fondo, -foreground => $color_texto my $targe = $yu->Entry( -width => 35, -background => $color_fondo, -foreground => $color_texto $yu->Button( -text => "Get Info", -width => 10, -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto, -command => \&whoisit $yu->Label( -text => "Information", -font => "Impact", -background => $color_fondo, -foreground => $color_texto my $data = $yu->Scrolled( "ROText", -width => 40, -height => 12, -scrollbars => "e", -background => $color_fondo, -foreground => $color_texto sub whoisit { $data->delete( "0.1", "end" ); $data->insert( "end", whois( $targe->get ) ); } MainLoop; #The End ?