Select Code to Download

$ perl -E " use Win32::Unicode::File; use Data::Dump; dd \@Win32::Unic
+ode::File::EXPORT, \&moveW ; moveW()"
(
...
)
Usage: moveW(from, to [, over]) at -e line 1.

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

$ perl -MPath::Class -E " say file(1) "
1
...
1

$