#!/usr/bin/perl

use Cwd;
use lib Cwd::cwd;
use basedat;