1*97156894Sreykuse strict; 2*97156894Sreykuse warnings; 3*97156894Sreyk 4*97156894Sreykmy $len = 512; 5*97156894Sreykmy @lengths = ($len, $len, $len); 6*97156894Sreykour %args = ( 7*97156894Sreyk client => { 8*97156894Sreyk path => "$len", 9*97156894Sreyk http_vers => [ "1.0" ], 10*97156894Sreyk lengths => \@lengths, 11*97156894Sreyk }, 12*97156894Sreyk md5 => path_md5("$len"), 13*97156894Sreyk lengths => \@lengths, 14*97156894Sreyk); 15*97156894Sreyk 16*97156894Sreyk1; 17