open(my $awk, "|awk >Tmp$$") # $$ is our process id
   or die "Can't start awk: $!";
print $awk $var1, $var2;
close $awk;