#!/usr/bin/perl -w

use strict;
use vars qw($ret $reply);

# Signal handler
$SIG{INT} = 'intSub';

while (1) {
	$ret=get_input();
	print "\nget_input returned: $ret\n"; 
}

sub get_input {
	# Give prompt
	print "Enter value: ";
	$reply=<STDIN>;

	return 0 unless $reply;

	chomp($reply);
	print "You typed: $reply\n";

	return 1;
}

sub intSub {
	# Reset signal handler
	$SIG{INT} = 'intSub';
};