--- Build.PL_orig	Sun Aug  3 18:20:42 2008
+++ Build.PL	Sun Aug  3 18:03:27 2008
@@ -131,13 +131,14 @@
   my ($self, $to, $file_base, $obj_file) = @_;
   my ($cf, $p) = ($self->{config}, $self->{properties}); # For convenience
 
-  my $lib_file = catfile($to, File::Basename::basename("$file_base.so"));
+  my $lib_file = catfile($to, File::Basename::basename("$file_base.$Config{dlext}"));
 
   $self->add_to_cleanup($lib_file);
   my $objects = $p->{objects} || [];
   
   unless ($self->up_to_date([$obj_file, @$objects], $lib_file)) {
     my @linker_flags = $self->split_like_shell($p->{extra_linker_flags});
+    push @linker_flags, $Config{archlib} . '/CORE/' . $Config{libperl} if $^O =~ /MSWin32/i;
     my @lddlflags = $self->split_like_shell($cf->{lddlflags}); 
     my @shrp = $self->split_like_shell($cf->{shrpenv});
     my @ld = $self->split_like_shell($cf->{ld}) || "gcc";