Select Code to Download

    open my $fh, '<:raw:encoding(UTF-8)', "$upload_dir/$filename";
        read $fh, my $string, -s $fh;
    close $fh;

    my $book  = ReadData ($string);