#!/Perl/bin/perl

use Win32::OLE;

	my $path = "XXX";		

	my $access = Win32::OLE->new('Access.Application');
	
	$access->OpenCurrentDatabase($path);
	
        #Don't show the window	
        $access->{Visible} = 0;

        #Open the report in design mode
	$access->DoCmd->OpenReport("XXX",1);
	
        #Change the recordsource
	$access->Reports->Item(0)->{RecordSource} = "XXX";
	
        #Save the report
	$access->DoCmd->Save(3,XXX);
	
        #Quit
	$access->DoCmd->Quit(2);