use Storable;
use MIME::Base64;
use Data::Dumper;

eval {
 die encode_base64(freeze({errorcode => 12, errormess => 'you have died'}));
};
print "error caught: ".Dumper(thaw(decode_base64($@))) if $@;