#!/usr/bin/perl

print "Enter your answer?\n";
if ( -t STDIN ) {
    <STDIN>;
    print "Terminal was used.\n";
}
else {
    print "Not a terminal.\n";
}

print "Done.\n";