#!/usr/bin/perl
use strict;
use warnings;

my $format  = 0;

if ( $format == 1 ) {
 print $format;
}
else {
   print 'Oops';

exit;

##</code><code>##

perltidy version 20101217 log file on a MSWin32 system, OLD_PERL_VERSION=5.012002
Windows type is XP/.Net
Configuration and command line parameters for this run:
-g
To find error messages search for 'WARNING' with your editor