!/usr/bin/perl
use strict;
use warnings;
Pacakge CCD::Human; #declare new class 

my $in = ("/home/ki/Downloads/currenthumanccds.txt") or die "Can't open file: $!"; #declare file in n path
my $out = ("home/ki/output.txt") or die "Can't create file path: $!"; #declare file out and path

open (IN, $in) or die "$!";
open (OUT, '>' , $out) or die "$!";



my @text;
my $input=<STDIN>;
while (<IN>){
	chomp;
	my @fields = ( split /\t/ );
}
if ($in=~ /+\/),$text[6]){
	print OUT "$text[2]\t $text[6]\t";# if a + is present print it and the gene id text[2]
}and{
if ($in=~ /withdrawn/),$text[5]{
		print OUT "not public";
	}
}