Select Code to Download

use Digest::MD5 qw(md5_hex);

...

my $fileMd5 = md5_hex($text) . $ext;

open(my $fh, ">", $fileMd5) or warn("Could not create ($fileMd5)\n"), 
+next;

if(system(mozilla => -remote => 'ping()')) {
    warn "mozilla not found!";
...
# (obviously, use "new-window" if you prefer that)

my $commandShow = q{mozilla -remote "openurl(%s, new-tab)"};

Win32::Process::Create(
    my $process,
...
    NORMAL_PRIORITY_CLASS,
    "."
) || die ErrorReport() if system(mozilla => -remote => 'ping()');