Select Code to Download

    if (-t STDIN && -t STDOUT) {
        print "Enter an integer: ";
    }

    my $count = <>;

sub is_interactive {
    return -t *ARGV && -t *STDOUT;
...
if (is_interactive()) {
    print $PROMPT;
}

-t *ARGV

sub is_interactive {
    # Not interactive if output is not to terminal...
...
if (is_interactive()) {
    print $PROMPT;
}

use IO::Interactive qw( is_interactive );

...
if (is_interactive()) {
    print $PROMPT;
}

use IO::Interactive qw( interactive );

# and later...

print {interactive} $PROMPT;