#!/usr/bin/env perl


use Modern::Perl;

use ParseUtil::Domain ':simple';

my @input;
if (@ARGV) {
    @input = @ARGV;
}
else {
    @input = <>;
}

foreach my $domain (@input) {
    chomp $domain;
    my $parsed;
    local $@;
    eval { say puny_convert($domain); };
    if ( my $e = $@ ) {
        print STDERR "# " . $domain . ":\t" . $e;
    }
}
exit(0);

__END__

=head1 NAME


=encoding utf8

    punyconvert - Commandline puny encoder/decoder.

=head1 USAGE

    punyconvert xn--fa-hia.de
    faß.de

=head1 DESCRIPTION

    This program converts domains to and from puny encoding. Useful for
    commandline and or batch operations with text files.