Help for this page
perl -e "my $filename = "new_file"; my $var ="$filename.txt"; print $v +ar;" new_filetxt