Below is the code for test.pl and it printed the variable to a output file:test.txt. But it could not replace with the variable(${filedt} in file name)

#!/usr/bin/perl
use Time::Piece;
use warnings;
use strict;
my $file='test.txt';

open STDOUT, ">", $file or die "$0: open: $!";
open STDERR, ">&STDOUT"        or die "$0: dup: $!";

my $filedt = localtime->strftime('%Y%m%d');
print $filedt;
#my $infile   = '/home/vmeruga_alt/EXEC_${filedt}.txt';
[download]