#!/usr/bin/perl -w print "Do you wish to continue (yesno)" ; chomp ($resp=<STDIN>); print "resp=$resp";