use strict; use warnings;
...
open my $OUT, '>', $filename or die $!;
print $OUT "free_batteries" if $price >= 55 and $title !~ /electric/;
print $OUT "\n"; # in all cases