Select Code to Download

system 'perl', '-pi', '-e', 's/>//g', $filename;

CHANGE_FILE: {
  my $backup = "${filename}~";
...
  select $filename;
  s/>//g, print while <$backup>
}