Can you provide some more code surrounding line 170? The following works for me:

#!/usr/bin/perl
use strict;
use warnings;

open STDOUT, ">", "files.out";
print "test\n";
[download]