Una imagen
El codigo
Código
#!usr/bin/perl #Get IP 0.1 #Version Tk #Coded By Doddy H use Tk; use IO::Socket; my $color_fondo = "black"; my $color_texto = "yellow"; #if ( $^O eq 'MSWin32' ) { # use Win32::Console; # Win32::Console::Free(); #} my $ua = MainWindow->new( -background => $color_fondo, -foreground => $color_texto ); $ua->title("Get IP || Coded By Doddy H"); $ua->geometry("350x110+20+20"); $ua->resizable( 0, 0 ); $ua->Label( -text => "Host : ", -font => "Impact", -background => $color_fondo, -foreground => $color_texto my $host = $ua->Entry( -width => 30, -background => $color_fondo, -foreground => $color_texto $ua->Button( -text => "Get IP", -width => 10, -command => \&quien, -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto $ua->Label( -text => "IP : ", -font => "Impact", -background => $color_fondo, -foreground => $color_texto my $ip = $ua->Entry( -width => 33, -background => $color_fondo, -foreground => $color_texto MainLoop; sub quien { $ip->configure( -text => get_ip( $host->get ) ); } sub get_ip { } #The End ?