linux> perl -e 'for my $month (qw|June July|) {for(1..3){my $url = qq|http://localhost/foo| . $_ . qq|\.tar&dt=| . qq|$month-2001|; print qq|Doing >>> $url\n|; `wget $url` }}'