Select Code to Download

#!/usr/bin/perl
use strict;
...
    open(my $fh, '>>', "$acct.txt") or die "Unable to open '$acct.txt'
+ for appending: $!\n";
    print $fh $line;
}

#!/usr/bin/perl
use strict;
...
    }
    print { $fh->{$acct} } $line;
}