Help for this page
sub add_cr { my %source= @_; ... } elsif( my $filename= $source{filename}) { # you get the idea?...