Select Code to Download

  if (-t STDIN) {
    # we're running from a shell, without input being
...
  } else {
    # ...
  }

  use IO::Handle;
  STDIN->blocking(0);
...
  } else {
    # no input at the moment.
  }