# In the main .pl
 use ThisPackage;
 ...
 my $the_package = ThisPackage->new();
 ...
 (this other guys code) 
 print "What is the value of var_here? $var_here\n"; # my debug statement gets printed as What is the value of var_here? CornFlakes
 (more of this other guys code) 

 # In the package:
  package ThisPackage;
 ...
 sub new{
    my ($class, $self)=@_;
    ...
 }
 (this other guys code) 
 print "What is the value of var_in_package? $var_in_package\n"; # my debug statement does NOT get printed out as the statement in the main program did. 
(more of this other guys code)