Select Code to Download

#!/usr/bin/env perl
use warnings;
...

untie @file1;  close $fh1;
untie @file2;  close $fh2;