#!/usr/bin/perl

use strict;
use warnings;

our $test = 1;

print $::test;