perl -e "my $filename = "new_file"; my $var ="$filename.txt"; print $var;"
new_filetxt