#!usr/bin/perl
open(IN, "ALL.chr16.phase1_release_v3.20101123.snps_indels_svs.genotypes.vcf");
open (OUT, ">1");
$line = 1;
while (<IN>){
	chomp $_;
	print OUT $_,"\n";
	last if $line == 31;
	$line ++;
        }