#!/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';