$ perl -E " use Win32::Unicode; use Data::Dump; errorW(); dd [ $@, errorW() ]; eval { moveW() }; dd [ $@, errorW()]; eval { moveW(qw{ . . }) }; dd[$@, errorW()]; dieW 666;" ["", "The handle is invalid."] [ "Usage: moveW(from, to [, over]) at -e line 1.\n", "The handle is invalid.", ] ["", "The handle is invalid."] 666 at -e line 1.