#!/opt/local/tools/bin/perl

    use 5.24.0;
    use strict;
    use warnings;

    my $response;

    unless (-t STDIN)

        {
            while (<STDIN>)

                {
                    chomp;
                    print "input line is $_\n";
                }
        }

    print "Now enter something: ";
    $response = <>;
    print "You entered -->", $response, "<--\n";