print "Do you want to submit Job A? ";
chomp (my $question = <STDIN>);
die "Goodbye\n" unless $question=~ /(yes|y)/i;
print "Are You Sure?  ";
chomp (my $question2= <STDIN>);
die "Goodbye\n" unless $question2 =~ /(yes|y)/i;
print "Everything good\n";