あ、確かに、『my $cfg = $sow->{'cfg'};』の行はないですね。
それ以外の部分は、違いないです。