Select Code to Download

use warnings;
use strict;
...
        }
    }
}

use warnings;
use strict;
...
        print Dumper(scalar <$fh>);
    }
}