my $hex = unpack("H*", $@);
warn "Warning: [$@] [$hex]";