JEEN · May 22, 2013 06:00
diff --git a/test.pl b/test.pl
 #!/usr/bin/perl
 
 open $file,'<',$ARGV[0];
 
 while(<$file>){
    my @line=split ' ',$_;
    if ($line[1]  < 0.05 && $line[2] < 0.05) {
        $count++;
        $total++;
        print join("\t", @line), "\n";.
    }
 }
	#!/usr/bin/perl

	open $file,'<',$ARGV[0];

	while(<$file>){
	my @line=split ' ',$_;
	if ($line[1] < 0.05 && $line[2] < 0.05) {
	$count++;
	$total++;
	print join("\t", @line), "\n";.
	}
	}