You can also use Win32::GetLastError() which is included in core perl. To get the text based version of that, Win32::FormatMessage(Win32::GetLastError()) or "$^E"