#!/usr/bin/perl use lib '.'; use basedat;