#!/usr/bin/perl

use strict;
use warnings;
use Encode;

eval{
encode('mein_utf','test');
};

print '$@ ist nicht leer' if $@;