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