#!/usr/bin/perl -w
use strict;
use Path::Resource;
 
   $rsc = Path::Resource->new(uri => "http://localhost/", dir => "/srv/www/htdocs");

opendir my $dirh, '/srv/www/htdocs/' or die $!;
while( my $file = readdir $dirh ){
   next unless $file =~ m/^\w+-\w+-\w+-\w+-\w+-\d\d\d\d\.pdf\z/;
   $rsc->child( $file );
   print $rsc->file,"\n",$rsc->uri,"\n";
}

Global symbol "$rsc" requires explicit package name at ./laden2.pl line 5.
Global symbol "$rsc" requires explicit package name at ./laden2.pl line 10.
Global symbol "$rsc" requires explicit package name at ./laden2.pl line 11.
Global symbol "$rsc" requires explicit package name at ./laden2.pl line 11.
Execution of ./laden2.pl aborted due to compilation errors.

my $rsc = Path::Resource->new(uri => "http://localhost/", dir => "/srv/www/htdocs");