use strict;
use warnings;

my $list = 'foo';
my $newline = "bar\n";
open FH, '>', "$list.tmp" or die "$list == $!";
print FH $newline or die "Error print: $!";
close FH;
    
print $newline;