Select Code to Download

use strict;
use warnings;
...
# Read back the file
do $fname;
printf "Results of hash = %s\n", Dumper($phash);