# Main part
while (1)
{
	&get_input
}

sub get_input
{
	# Give prompt
	$reply = <STDIN>;

	if ( .."CTRL-C pressed".. ) { return 0; }
	else
	{
		# continue...
	}
}