C:\>perl -MDynaLoader -e "  warn DynaLoader::dl_load_file($^X); "
4194304 at -e line 1.

C:\>perl -MWin32::API -le " warn Win32::API::LoadLibrary($^X)"
4194304 at -e line 1.

##</code><code>##

C:\>perl -le" printf q!%x!, 4194304 "
400000

C:\>perl -le " @f = `Listdlls.exe $$`; print @f[8..10]"

  Base        Size      Version         Path
  0x00400000  0xb000    5.08.0009.0825  C:\Perl\bin\perl.exe