use warnings;
use strict;
use IO::Interactive 'is_interactive';
use Term::ReadLine;

print "Hello, World!\n";

if ( is_interactive() ) {
	print "Press Enter to continue...\n";
	Term::ReadLine->new("")->readline("");
}
else { warn "Noninteractive, continuing...\n" }