if ( $download_status eq "START" ) { my $wgetcmd = "wget -o $download_log -O $zipfile -b $zipurl"; system ( $wgetcmd ) == 0 or die __FILE__ . " [" . __LINE__ . "] cannot execute $wgetcmd :$!\n"; sleep 1; my $shell_out = <<`SHELL`; grep Length $download_log | awk '{print \$3}' SHELL $download_size = $shell_out; }