This will do it on Win32:

#! perl -slw
use strict;
use Win32::API::Prototype;

ApiLink( 'kernel32', q[ 
    HMODULE GetModuleHandle( char *lpModuleName ) 
] );
ApiLink( 'kernel32', q[ 
    DWORD GetModuleFileName( HMODULE hModule, LPTSTR lpFilename, DWORD
+ nSize )
] );

my $name = chr(0) x 256;;
GetModuleFileName( GetModuleHandle( 'perl58.dll' ), $name, 256 );
print $name;

__END__
c:\test>570085
c:\perl\bin\perl58.dll
[download]

Thanks for those replies! I was a bit unclear in my initial post, I think, though. I was wondering if there is a more general way to figure out where the $Config{libperl} lives that the running perl interpreter needs/is using. For example, how does PAR figure that out?

PAR uses Module::ScanDeps

I was wondering if there is a more general way to figure out where the $Config{libperl} lives

I think the following would always produce the correct path on Win32 to $Config{libperl}:

perl -MConfig -e "print $Config::Config{archlib}.'\\CORE\\'.$Config::Config{libperl}"

Works for me - and on Linux if rewritten (with corrections to the directory path separator) as:

perl -MConfig -e 'print $Config::Config{archlib}."/CORE/".$Config::Config{libperl}'

Attend to the path separator issue (if that's applicable to your needs) and you should be able to come up with a truly portable script.

Cheers,
Rob

I'd guess perl58.dll is pretty specific to an ActiveState installation so using the same path as given by $^X is likely to be safe.

Note that the related type library and header are in '../lib/CORE/' with respect to the folder containing perl.exe (or wperl.exe).

I'd guess perl58.dll is pretty specific to an ActiveState installation

It's pretty specific to a Win32 installation.

That said, it needs to be in the directory of the .exe that uses it or in the $ENV{PATH}, so I'd imagine it can also be found heuristically in most cases.

-xdg

Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.