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