if (-t STDIN) {

    print "stdin is connected";
} else {
    print "stdin is not connected";
}