Código
#!usr/bin/perl #Whois Online 0.1 #Coded By Doddy H use LWP::UserAgent; my $nave = LWP::UserAgent->new; $nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12" ); $nave->timeout(5); head(); if ( $ARGV[0] ) { } else { sintax(); } copyright(); sub sintax { } sub head { } sub copyright { } sub whois { my $code = tomar( "http://networking.ringofsaturn.com/Tools/whois.php", { "domain" => $ob, "submit" => "submit" } ); my @chau = ( """, ">>>", "<<<" ); if ( $code =~ /<pre>(.*?)<\/pre>/sig ) { my $resul = $1; for my $cha (@chau) { $resul =~ s/$cha//ig; } if ( $resul =~ /Whois Server Version/ ) { } else { } } } sub toma { } sub tomar { my ( $web, $var ) = @_; } # The End ?