Select Code to Download

open(FOO, '>', ...) or die $!;
print(FOO "string\n");

open(*FOO, '>', ...) or die $!;
print({ *FOO } "string\n");