1use strict; 2use warnings; 3 4my $len = 512; 5my @lengths = ($len, $len, $len); 6our %args = ( 7 client => { 8 path => "$len", 9 http_vers => [ "1.0" ], 10 lengths => \@lengths, 11 }, 12 md5 => path_md5("$len"), 13 lengths => \@lengths, 14); 15 161; 17