use strict;  
use warnings;
print "\nTest1\n";
print "\nTest2\n";
print "Press <Enter> to continue, or 'q' to quit: ";
my $user_input = <STDIN>;
exit if $user_input eq "q\n";