#!/usr/bin/perl use Process1; use Process2; use base qw( TheSchwartz ); my $client = TheSchwartz->new( databases => $setting); $client->can_do('Process1'); $client->can_do('Process2'); $client->work();