#!/usr/bin/perl
use strict;
use warnings;

my $id = 1;
my $auth_id = 150;
my $blah = `perl ./tmp.cgi id=$id auth_id=$auth_id draw=1 raw=raw`;
print $blah, "\n";
exit;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

use CGI qw(:all);
my $q = new CGI;
my $id = $q->param("id");
my $auth_id = $q->param("auth_id");
my $draw = $q->param("draw");
my $raw = $q->param("raw");
print $id, "\n";
print $auth_id, "\n";
print $draw, "\n";
print $raw, "\n";
exit;