#!/usr/bin/env perl

use strict;
use warnings;

BEGIN
{
  push @INC, './lib';
}

use T;

foreach my $i (qw/8.8.8.8 4.2.2.2 4.2.2.1 8.8.4.4/)
{
  print rev_ip($i) . "\n";
}