#!/usr/bin/perl
# Greenwich - a whois client for GNOME written in Perl
# Copyright (c) 2002,2003 Gavin Brown. All rights reserved. This
# program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself. 
# $Id: greenwich,v 1.24 2003/12/05 13:45:52 jodrell Exp $

use lib (-e '/usr/lib/Greenwich' ? '/usr/lib/Greenwich' : $ENV{PWD}.'/lib');

use Greenwich;

# modify the $PREFIX variable here:
$Greenwich::PREFIX = (-e '/usr/' ? '/usr/' : '/usr/local');

use strict;

our $INSTANCES = 0;

my $greenwich = Greenwich->new();

$greenwich->init();

exit;
