#!/usr/bin/perl

use warnings;
use strict;

my $accessPfad = Win32::OLE->GetObject('PfadZuMeinerDatenbank\Datenbank.mde') or die;

my $funktion = $accessPfad->Eval(qq{Funktion("$Variable")});