#!/usr/bin/perl
# Simple script that prints a string and asks a for y/n
while (1) {
	print "@ARGV (y/n)? ";
	$reply = <STDIN>;
	exit (1) if ( $reply =~ /^y$/i);
	exit (0) if ( $reply =~ /^n$/i);
}