open my $prog, "|program"; print $prog "$filename\n";

##</code><code>##

print $prog "$filename\n";

##</code><code>##

print $prog, "$filename\n";