Useless use of echo on that second one. Just do this:

system "program_name </dev/null >$out_file";
[download]

-- Randal L. Schwartz, Perl hacker