use IO::Interactive qw( is_interactive );

if ( is_interactive() ) {
  print "Show a prompt?\n";
} 
else {
  print "Gobble STDIN.\n";
}