root/lang/perl/HappySync/trunk/bin/happysync.pl @ 35757

BEGIN {
    unshift(@INC, './lib');
}
use strict;
use warnings;
use IO::Prompt;

use HappySync;

my $username = shift or die "need username";
my $password = shift;
my $syncpoint = shift;

my $happy = new HappySync($username, $password, $syncpoint);
$happy->init() or die;
$happy->get();