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