Help for this page

Select Code to Download

Select or download this
```
sub yn {
...
        return $val;
}
```

Select or download this

# from http://pleac.sourceforge.net/pleac_perl/userinterfaces.html
sub I_am_interactive {
    return -t STDIN && -t STDOUT;
}