Select Code to Download

open (FILE, "<:encoding(UTF-8)", $Profile) or die $!;
my @Lines = <FILE>;
close(FILE);

open (FILE2, ">", $Profile) or die $!;

  print FILE2 "$Line";
}
close(FILE2);