package module;
use strict;
use warnings;
use Carp qw( croak carp );
use Encode;

sub new {
    my ( $class, @args ) = @_;
    my $self = {};
    bless $self, ref( $class ) || $class;
    return $self;
}

sub foo {
    my ( $self ) = @_;

    if ( !eval { encode( 'utf-no', 'text' ) } ) {
        croak(
            "Laenge der Meldung: " . length($@),
            "\nMeldung: " . $@
        );
    }
}

1;