Help for this page

Select Code to Download

Select or download this

if ($useGZ) {
    eval q{ use IO::Compress::Gzip; 1 }
        or die "IO::Compress::Gzip is NOT available: $@";
    print "IO::Compress::Gzip is available\n";
}

Select or download this

eval 'use Data::Dumper; 1' or die $@;
print Dumper $x;   # WON'T work, confusing warning message
print Dumper($x);  # will work