#!/var/lib/apache2/fcgid/a2wserver/perl588/bin/perl -w

eval 'exec /var/lib/apache2/fcgid/a2wserver/perl588/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell

# This script will open up the ActivePerl User Guide in your
# web browser.

use strict;
use Config qw(%Config);

my $htmldir = $Config{installhtmldir} || "$Config{prefix}/html";
my $index = "$htmldir/index.html";

die "No HTML docs installed at $htmldir\n"
    unless -f $index;

require ActiveState::Browser;
ActiveState::Browser::open($index);
