The document says that, the error function, if it is used in a scalar context, which is the case you have now, it returns the latest error, if it is set. So it can return undef.

Just do this:

print "Message is $msg\n" if $msg;
[download]