#!/usr/bin/perl

use IO::Handle;    #new
STDOUT->autoflush; #new

print "Please press return\n";
my $line = <STDIN>;
print "OK, exit now\n";