package Mailsort;
use lib ('G:\Perl Live\OO Packages');
require Exporter;
require Mailsort_scj;
require Filedetails;

use strict;
use Carp;

my @ISA = qw(Exporter Filedetails Mailsort_scj);

sub new{
 	my ($proto,$type) =@_;

 	my $typein = ref($type) || $type;

        my $params = new Mailsort_scj($typein);

	&initialise($params);

	bless ($params,$typein);

	return($params);
}