#!/usr/bin/perl
use Net::FileShare;

my $dir = `echo \$HOME`; chomp($dir);
my ($fh) = new Net::FileShare(
	_directory => $dir,
	_debug	   => '1');

	$fh->client_interactive("127.0.0.1", "3000");