package Mytest;
use strict;
use warnings;

my $var = 1;

1;