#!/tmp/perl---------------------------------------------please-run-the-install-script---------------------------------------------/bin/perl -w

eval 'exec /tmp/perl---------------------------------------------please-run-the-install-script---------------------------------------------/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);
