蒼い月が見える頃に

use strict qw/vars/;
use Net::Whois::Raw;
use Jcode;

package Errors;

　　sub new { bless{},shift; }
　　sub err_no{ shift and print @{$_[0]},"\n"; exit; }

package main;

my $error = Errors->new;

$error->err_no(["error\t","no1"]) unless(@ARGV == 1) and my $host = shift;$host =~ m/^[a-z0-9][a-z0-9\-\.\_]+\.[a-z]{2,4}$/i or $error->err_no(["error\t","no2"]);

my $data = Jcode::convert(\whois($host),'utf8');print "$data\n";

exit;