#!/usr/bin/perl

use strict;
use warnings;

{
    package Test;
    my $i = 9;
}

package main;
print $i;