#!/usr/bin/perl -w
$x = 1;
while ($x < 365) {
if($x <= 9){ $x = "00".$x;}
if($x >9 && $x < 100){ "0".$x;}
system ("wget --load-cookies ~/.urs_cookies --save-cookies ~/.urs_cookies --keep-session-cookies -r -c -nH -nd -np -A HDF --content-disposition https://disc2.gesdisc.eosdis.nasa.gov/data/TRMM_L3/TRMM_3B42.7/1998/$x/");
$x++;
}