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