use strict;
require "pit.pm"; ## also use or require w/o quotes

my $Email="abc\@example.com";
print "1) $Email\n";

 pit::printIT();

print "1) $Email\n";
print "1) done\n";

#use pit; ## doesn't work here either

##</code><code>##

package pit;
sub printIT {
  my $xyzzy = $main::Email;
  print "2) #xyzzy\n";
}
1;

##</code><code>##

wf13[~]>perl testGlobal.pl
1) abc@example.com
2)
1) abc@example.com
1) done