print "Hit <Enter> to continue\n"; 
my $y = <STDIN>;