use lib ('G:\Perl Live\OO Packages');
use Mailsort;

use strict;

my $file = 'J:\sample file.csv';
my $ob = new Mailsort($file);

#unable to call this method which is in class Mailsort_scj
$ob->update_database('DSA','a database');

print $ob->{DATABASE}."\n";