#file Service.pm
package Service;
use UTest;
our @ISA = qw(UTest);

sub new {
  my ($class)  = shift;
  my $self = UTest->new();
  $self->{'captures'} = {};
  bless $self, $class;
  return $self;
}
#others sub...
1;