#!/usr/bin/perl


'composer "create originaljobfile from jobs=@#@"';

'composer "delete jobs=ESMD#@"';

chomp ($input= <STDIN>);
if ($input=~ /^Okay\b/i) {
print "Y";
redo;
} else {

print "joe";
};