Select Code to Download

package Foo;
use strict;
...
}

1;

# Override the qx// operator to capture args to $qx_args
my $qx_args;
...

# print arguments to qx//
print "qx// args were: [$qx_args]\n";