question marks appers at the end of text file on renaming the text file using perl

Question

I am new to Perl I was trying to download a link through Perl script which is as follows:-

#!/usr/bin/perl
use strict;
use warnings;
use Cwd qw(abs_path);
use