use 5.010;
use strict;
use warnings;
use Carp;

my $var = 'QeTEv2804';
printf "%s.\n", $var;

open my $debug, '>>', 'debug.txt' or confess "Couldn't open file: $!";
printf $debug "%s.\n", $var;
close $debug;