#!/usr/bin/perl
$SIG{'INT'} = sub {
print "Press -=ENTER=- to Resume or 'q' to quit\n";
chomp (my $quit=<STDIN>);
die "\nTerminating at users request \n" if $quit =~ /^q$/i;
};
print "Testing One Two Three\n";
chomp (my $continue=<STDIN>);
print "Got to the end of the programme \n";