my $result = qx/perl -c $tempfile 2>&1/;