#!/usr/bin/perl


print "Press C to continue\n";

$getc = <STDIN>;

while ($getc ne 'c')

	{print "getc is $getc";
	$getc = <STDIN>;}
	
print "It worked, finally";