package MIS_PrintStatus; use Data::Dumper; use strict; use warnings; sub new { my ($class) = @_; my $self = {}; bless $self, $class; return $self; } sub printit { my ($table, $data) = @_; print "The table name is $table\n"; } 1;