Select Code to Download

sub I_am_interactive {
  return -t STDIN && -t STDOUT;
}

sub I_am_interactive {
  local *TTY; # local file handle
...
  close TTY;
  return ($tpgrp == $pgrp);
}