#!/usr/bin/perl

use strict;
use warnings;

use CGI qw(:all);
print header;

my $blah = `perl ./tmp.cgi 'var1=one&var2=two'`;
print "<pre>", $blah, "</pre>\n";

exit;