Select Code to Download

#!/usr/bin/perl 
use strict;
...


close $fh;

  my $filename = (split /\|/, $id)[0];
        open  my $out_fh, '>>', "$filename" or die $!;