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

eval {
    App::rdapper->main(map { decode(langinfo(CODESET), $_) } @ARGV);
    exit(0);
};

exit(1);
