use Win32::test; (my $dll = $INC{'Win32/test.pm'}) =~ s/pm\z/dll/;