#!/usr/bin/perl
use strict;
use File::chdir;
my $dir = '/data1/sgb';
$CWD = "$dir/Hsapiens_fasta_folder";
my @files=<*.fa>;
$CWD = "$dir/targetp-1.1";
foreach my $file( @files) {
	print "$file\n";
	print "$CWD\n";
}