package MyModule; 

use vars qw($my_test); 

$my_test = "Testpfad"; 

 
#! /usr/bin/perl 

use strict; 
use warnings; 
use lib qw(/my/home/lib/); # wenn MyModule.pm in /my/home/lib liegt, sonst anpassen 
use MyModule; 

my $test = MyModule::my_test; 

print $test,"\n";