diff -ru WWW-Mechanize-0.70.orig/t/mech-dump.t WWW-Mechanize-0.70/t/mech-dump.t
--- WWW-Mechanize-0.70.orig/t/mech-dump.t	2003-11-19 23:02:25.000000000 -0500
+++ WWW-Mechanize-0.70/t/mech-dump.t	2003-12-12 16:03:03.000000000 -0500
@@ -11,7 +11,13 @@
 
 my $exe = File::Spec->catfile( qw( blib script mech-dump ) );
 my $data = File::Spec->catfile( qw( t google.html ) );
-my $actual = `$exe --forms $data`;
+my $actual;
+if ($^O eq 'VMS') {
+    $actual = `mcr $^X "-Mblib" blib/script/mech-dump --forms t/google.html`;
+}
+else {
+    $actual = `$exe --forms $data`;
+}
 
 my $target = URI->new_abs( "/target-page", $data );
 $target = URI::file->new_abs( $target )->as_string;
diff -ru WWW-Mechanize-0.70.orig/t/referer.t WWW-Mechanize-0.70/t/referer.t
--- WWW-Mechanize-0.70.orig/t/referer.t	2003-11-19 23:02:43.000000000 -0500
+++ WWW-Mechanize-0.70/t/referer.t	2003-12-12 16:02:58.000000000 -0500
@@ -13,8 +13,14 @@
     delete $ENV{HTTP_PROXY};
 
     # Now start a fake webserver, fork, and connect to ourselves
-    open SERVER, qq'"$^X" $FindBin::Bin/referer-server |'
-	or die "Couldn't spawn fake server : $!";
+    if ($^O eq 'VMS') {
+        open SERVER, qq'mcr $^X t/referer-server |'
+	    or die "Couldn't spawn fake server : $!";
+    }
+    else {
+        open SERVER, qq'"$^X" $FindBin::Bin/referer-server |'
+	    or die "Couldn't spawn fake server : $!";
+    }
     sleep 1; # give the child some time
     my $url = <SERVER>;
     chomp $url;