#!/usr/bin/env perl
use App::rdapper;
use Encode qw(decode);
use I18N::Langinfo qw(langinfo CODESET);
use strict;

App::rdapper->main(map { decode(langinfo(CODESET) || q{UTF-8}, $_) } @ARGV);

exit(0);
