sub __($) {
  use Locale::TextDomain; 
   my( $key ) = @_;
   my( $ret ) = Locale::TextDomain::__($key);
   if( $key eq $ret  ){
       warn "blah blah q{$key}\n";
       die "blah blah q{$ret}\n";
   }
   return $ret;
}
[download]