sub getWB
{   my ($dir, $excel) = $_[0] =~ /(.*)\/(.*)/ ;
    my $xs = Excel::Table->new(dir => $dir) ;
    $xs->open($excel)  ;
    return $xs ;
}