#!/usr/bin/perl -w

use strict;
use lib ('.');
use MYPACKAGE qw / sub1 /;
use vars qw / $var1 /;
$var1="PRINT THIS";
sub1();