perl -MWin32::API -e 0