#!/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";

##</code><code>##

echo Hello | pgm
input line is Hello
Use of uninitialized value $response in print at /userdata/cfor/utils/worklib/pgm line 25.
Now enter something: You entered --><--