Select Code to Download

use File::Spec::Functions qw( catfile );

...
   unlink($full_name)
      or warn("Unable to delete file \"$full_name\": $!\n");
}