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

##</code><code>##

Log4perl: Seems like no initialization happened. Forgot to call init()?
no such path [D:\myexcel.xslx] at D:\Perl\spreadsheet.pl line 55.