Select Code to Download

sub activeDatabase
{
...

    return ($pwd . "\\xxx.mdb");    
}

##Prints a report##
sub printReport
...
    #Quit the application
    $app->DoCmd->Quit($accessConst->{'acQuitSaveNone'});
}