Select Code to Download

    open my $in, '<:utf8', $filename or die "Can't read $filename: $!\
+n";
    if ($filename=~/\.gz$/) {
        $in= new IO::Uncompress::Gunzip $in, { AutoClose => 1 };
    }