Select Code to Download

my $file = "file";
my $temp = "temp";
...
open $file, '>', "$temp$_";
print $file "THIS IS DATA";
}

c:\@Work\Perl\monks\james28909>perl -wMstrict -e
"my $file = 'file';
...
   }
"
Can't use string ("file") as a symbol ref while "strict refs" in use a
+t -e line 1.