start_funktion(
  {
     select => sub { $param{$vars[shift]}}->(\@args) }
  }
);

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 );