#!/usr/bin/perl
use Modern::Perl;
use File::Slurp qw/read_file write_file/;
my $pfaminput ='D://ARP//Downloads//Trembl//toxinpospf.txt';
my $seedinput ='D://ARP//Downloads//PFACFULL.txt';
#open OUTPUT, ">", 'D://ARP//Downloads//trembl//Toxin-NegativeACClist.txt';
#select OUTPUT;

while (<$pfaminput>){
	my $pfam = $_;
	print $pfam;
#while (<$seedinput>)	{
#	my $blah = substr $_, 0, 5;
#	if ($blah=<$pfaminput>) {
#print $_;		
#	}
#	
#}
}