use strict;
use warnings;
my @date = localtime(time);
my $filename = sprintf( "/home/abc/filename_%d_%02d_%02d.txt", $date[5]+1900, $date[4]+1, $date[3] );
print "$filename\n";