open( IN, "<".$ARGV[0] );
open( OUT, ">".$ARGV[1] );

$L = <IN>;
$L = <IN>;

while( $L = <IN> ) {
    chomp( $L );
    @D = split( /\t/, $L );
    print OUT $D[0]."\t".$D[6]."\n";
}

close( IN );
close( OUT );