$tpgrp = tcgetpgrp(fileno(*TTY));
$pgrp = getpgrp();
if ($tpgrp == $pgrp) {
    system("which which > whichtest");
} else {
    print "Skipping which as we are not interactive.\n";
}