my $save_term = $ENV{TERM};
$ENV{TERM} = "foo";
print `echo a \$TERM`;
$ENV{TERM} = $save_term;