#!/usr/bin/perl
print "Please press return\n";
my $line = <STDIN>;
print "OK, exit now\n";