print "Program Error!" && exit(0) unless $case;


##</code><code>##

my $case = 1;
print 'Program Error' and exit(0) unless $case;
print 'No problemo!'