use File::Spec::Functions ':ALL';

my $report = catfile "report", "meinbericht.html";
my $data   = catfile "daten",  "meinedaten.txt";

my $fromto = abs2rel rel2abs($report), rel2abs +(splitpath $data)[1];