#!/usr/bin/perl
use strict;
BEGIN { $x = 'aha' }
my $x;
print $x;