if (-t STDIN) {
    $stdflag = 1;
}