#!/usr/bin/perl package Test; use strict; my $var;