#!/usr/bin/perl -w
 use strict;
 use Path::Resource;
 
   $rsc = Path::Resource->new(uri => "http://localhost/", dir => "/srv/www/htdocs", 
	path => "verzeichnis/m/^\w+-\w+-\w+-\w+-\w+-\d\d\d\d\.pdf\z/s");

    my $file = $rsc->file; 
    $uri = $rsc->uri;