(reneeb) Thu Aug 18 10:04:55 [-bash]
~/entwicklung 202> cat >testA.pl
#!/usr/bin/perl
use strict;
use warnings;
use lib qw(.);
use A;

print $A::x,"\n";
$A::xFALSCH = "ohoh";
print $A::xFALSCH;
(reneeb) Thu Aug 18 10:04:55 [-bash]
~/entwicklung 202> cat >A.pm
package A;

use strict;
our $x = 99; 

1;
(reneeb) Thu Aug 18 10:05:29 [-bash]
~/entwicklung 203> perl testA.pl 
99
ohoh