# !/usr/bin/perl -w

use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const;

my $dbname = 'c:/Perlscripts_Conv_Issues/mk-db/new.mdb';

if (-e $dbname) {
   unlink $dbname 
}

   my $catalog = Win32::OLE->new('ADOX.Catalog');
   $catalog->Create('Provider=Microsoft.Jet.OLEDB.3.51;'. 
                    'Data Source='.$dbname) || die "unable to create database - 
                    ".Win32::OLE->LastError;
                    
  my $tblNEW = Win32::OLE->new('ADOX.Table');
  $tblNEW->{Name} = "Contacts";
  print "created table \n";
  
          
  $tblNEW->Columns->Append("FirstName", 'adVarWChar');
  $tblNEW->Columns->Append("LastName", 'adVarWChar');
 
  $catalog->Tables->Append($tblNEW);
  $tblNEW =  undef;
  $catalog = undef;