Port dual-life.t to VMS.

The utils have a .com extension and filename case may not be
preserved.

Author: craigberry

t/porting/dual-life.t

@@ -37,7 +37,10 @@ find(
 );
 
 for my $f ( @programs ) {
-  next if $f ~~ @exceptions;
-  ok( -f catfile('..', 'utils', basename($f)), "$f" );
+  $f =~ s/\.\z// if $^O eq 'VMS';
+  next if qr/(?i:$f)/ ~~ @exceptions;
+  $f = basename($f);
+  $f .= '.com' if $^O eq 'VMS';
+  ok( -f catfile('..', 'utils', $f), "$f" );
 }