Select Code to Download

Select or download this

#!/usr/bin/env perl

...
    return $t;
}

Select or download this

$ ./no_woes.pl
[1564] STDIN:  TTY
...
+----+-----------------+-------+
|    | Total           |  57.9 |
'----+-----------------+-------'

Select or download this

$ ./no_woes.pl | ./no_woes.pl
[1566] STDIN:  PIPE
...
+----+-----------------+-------+
|    | Total           |  57.9 |
'----+-----------------+-------'

Select or download this

$ ./no_woes.pl | ./no_woes.pl | ./no_woes.pl
[1568] STDIN:  PIPE
...
+----+-----------------+-------+
|    | Total           |  57.9 |
'----+-----------------+-------'

Select or download this

c:\cygwin64\home\ken\tmp\pm_11151991_io_select>perl no_woes.pl
[1292] STDIN:  TTY
...
+----+-----------------+-------+
|    | Total           |  57.9 |
'----+-----------------+-------'