my $filename = $tar_dir."/".$host_share . $row->{num}.".tar.gz";
my (undef, undef, undef, undef, undef, undef, undef, $fs_size, undef, undef, undef, undef, undef) = stat($filename);
print "checking $filename...";
my $filename = $tar_dir."/".$host_share . $row->{num}.".tar.gz";
my (undef, undef, undef, undef, undef, undef, undef, $fs_size, undef, undef, undef, undef, undef) = stat($filename);
print "checking $filename...";