#!/usr/bin/perl 

# mkbrowser -- creates an launches a new browser.
# Substitute path of the perl binary on your system
# in the line above.
# When installing, change permissions to executable
# using 'chmod +x mkws'.  

use Tk;
use Tk::Browser;
use Lib::Module qw(new retrieve readlib basename DESTROY);

my $name;

if ( defined @ARGV ) {
    $name = $ARGV[0];
	} else {
	    $name = 'xml';
	}
# If you place Workspace.pm in the current directory, 
# us: 'Workspace::open(Workspace::create($name));

my $b;
my $d; my @dirs; my @files;

$b = Tk::Browser -> new;
$b -> open();
MainLoop;
