#!/usr/local/bin/perl

sub hex2quad {
my $mask = shift;
join '.', map { hex $_ } ($mask =~ /(..)/g);
}

$mask = shift || die "Usage: $0 hexmask\n";
$dq = hex2quad($mask);
print "$dq\n";


