diff --git a/Examples/test-suite/perl5/run-perl-test.pl b/Examples/test-suite/perl5/run-perl-test.pl
index f0e1b0288..106bf002b 100755
--- a/Examples/test-suite/perl5/run-perl-test.pl
+++ b/Examples/test-suite/perl5/run-perl-test.pl
@@ -7,7 +7,7 @@ use strict;
 
 my $command = shift @ARGV;
 
-my $output = `perl $command 2>&1`;
+my $output = `$^X $command 2>&1`;
 
 die "SWIG Perl test failed: \n\n$output\n"
   if $?;