sub test_mod {
    my $line = shift;

    my $content = `echo '$line'`;

    local $\;
    print STDOUT $content;
}