use DBIx::Copy; 
use DBI;

my $dbh = DBI->connect('dbi:ODBC:ReportDB') or die "Error opening DB: $DBI::errstr\n"; 

my %options=();

my $copy_handler= DBIx::Copy->new($dbh, $dbh, \%options);

$copy_handler->copy (['dbo_Bulletins', 'knownbulletins']);