package show;
use vars qw(@ISA @EXPORT @EXPORT_OK);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(new);
@EXPORT_OK = qw();

sub new()
{
  my $self=shift;
  my %vars=@_;
  my $obj=\%vars;
  bless($obj,$self);
  return $obj; 
}

sub show($$$)
{
  my $obj=shift(@_);
  # ...
}
1;