use strict;
use warnings;

open WR, '>', 'file.out' or
  die "Can't open WR for writing: $!";

print WR foo();

close WR or
  die "Can't close WR: $!";


sub foo {
  return 'FOO';
}