use warnings;
use strict;
use IPC::System::Simple qw/systemx capturex/;
  
systemx('perl', '-e', q{print "'$$'\n"} );
my $o = capturex('perl', '-e', q{print "'$$'"} );
print "<$o>\n";