| Current Path : /proc/thread-self/root/usr/share/doc/perl-IO-Interactive/examples/ |
| Current File : //proc/thread-self/root/usr/share/doc/perl-IO-Interactive/examples/interactive.pl |
#!/usr/bin/perl -w
use IO::Interactive qw(is_interactive);
if( is_interactive() )
{
print "interactive\n\n";
}
else
{
print "NOT interactive\n\n";
}