#!/usr/bin/perl 
# browser -- Launcher for Browser.pm
# Substitute path of the perl binary on your system
# in the line above.
# When installing, change permissions to executable:
#  'chmod +x browser'.  

use Tk;
use Tk::Browser;
use Lib::Module;
use Env qw(_);

my $b;

$b = new Tk::Browser;

if( -e $ARGV[0] ) { # assume it's a file name;
  $b -> open(pathname => $ARGV[0]);
} elsif( $ARGV[0] ) { # assume the arg's a package name and 
                      # we have to scan for it.
  $b -> open(package => $ARGV[0]);
} else {  # No argument: open everything.
  $b -> open;
}

MainLoop;

