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

BEGIN { use constant COMMENT => 0; }

BEGIN {
if ( COMMENT ){
    print "silence\n";
}
    print "noise\n";
}