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

my $format  = 0;

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

exit;