Help for this page
$r = $r->{$_} ||= {} for split m|/|, $tmp; #/ $dl{$name} ||= $r;
#!/usr/bin/perl # ... exit 0;