#!/usr/bin/perl

#undef $/;
#$/='';

system("wget -o $file.wgetlog -x -i $file");

while(<>){

}