package Module1; 

sub new 
{
  my $class = shift; 
  my $self = {}; 
  bless($self, $class); 
  return $self; 
} 
sub allVars($no1)
{
	my ($self, $no1, $no2, $name1, $name2) = @_;
	print "all vars = $no1 $no2 $name1 $name2\n";
}
1;


##</code><code>##

foreach my $key (sort keys %Module1::)
{
  print $key ==> will return all methods of Module1
}