Select Code to Download

sub breakLine() {
        my ($string, $length, $marker) = @_;
...
    useremail =>    &breakLine($user->{email},$length,"-"),
);
print $tmpl->output;