#!/usr/bin/perl

use strict;

for( my $c=1;$c<=20;$c++) {
  my $chr = $c;
  $chr = "X" if ( $c == 20 );
  my $file = "mousehapmap_wellcome_imputedMissing_all_AC_Chr$chr.tab.gz";
  my $url="http://mouse.cs.ucla.edu/mousehapmap/beta/imputedGenotypes/wellcome/missing4/imputed95/$file";

  system("wget $url") if ( ! (-s $file));
  system("gunzip $file &");
}

