относительный абсолютный путь perl

Следующая настройка каталога:

/dira/dirb
/dira/dirb/myprog.pl

/dira/dirb/testa/myfilesdirСодержит следующие файлы

/dira/dirb/testa/myfilesdir/file1.txt
/dira/dirb/testa/myfilesdir/file2.txt

Текущий каталог:

/dir/dirb

./myprog.pl  -p testa/myfilesdir

Перебор файлов

while (my $file_to_proc = readdir(DIR)) {
...

$file_to_proc = file1.txt
$file_to_proc = file2.txt

то, что я хочу

$myfile = /dira/dirb/testa/myfilesdir/file1.txt
$myfile = /dira/dirb/testa/myfilesdir/file2.txt

Пробовал несколько разных модулей Perl (CWD rel2abs ), но он использует текущий каталог. Я не могу использовать текущий каталог, потому что ввод может быть относительным или абсолютным путем.