Help for this page
#!/usr/bin/perl ... sub ErrorReport{ print Win32::FormatMessage( Win32::GetLastError() ); }