use warnings;
use strict;

my $tired = 0;

if ($tired){
    print "goodbye, world!\n";
}
else {
    print "hello, world!\n";
}

##</code><code>##

perl script.pl