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

my $x;
my $y;

$y = 42;
print "$y\n";
__END__

##</code><code>##

my $x = compute_some_value();