use Scalar::Util;
eval {
	die \Scalar::Util::dualvar(5, 'komischer Fehler');
};
if ($@ and ${$@} == 5) {
	say ${$@};
}