#!/usr/bin/perl

use strict;
use Net::Whois;

my $domain = "yahoo.de";

my $callback = Net::Whois::Domain->new($domain)
	or die "kann keine Verbindung aufbauen\n";

print "Frei\n" unless $callback->ok;