#!/usr/bin/perl -w
# pipe.test.pl
use strict; use warnings;



open(IN, "<$ARGV[0]") or die "error reading file"; 
open(OUT, ">$ARGV[1]") or die "error reading file"; 

while (my $line = <IN>) {

	chomp($line);
	my @split = split("\t", $line);
	
	if ($split[5] == 1) {
		print OUT "$line\n";
	}
}
close IN;
close OUT;