use CCD::Human;
...
my $human = CCD::Human->new
            (
                '/home/ki/Downloads/currenthumanccds.txt',
                '/home/ki/output.txt',
            );
...
$human->parse();