use Froschpopo::DeObfuscate qw/ :all /;
use Translate::Slang qw/ Translate /;
use PerlForum::Util qw/ Repost /;

my $question = shift;

my $dict = "Froschpopo.dict";
my $maybe = Translate::Slang::Translate( $question, $dict) || die "Kann die Frage $question nicht verstehen!";

my $vielleicht = Froschpopo::DeObfuscate::TitelIs( $title ) || die "$title: Nicht zu entziffern!";

PerlForum::Util::Repost( $vielleicht, $maybe );