I guess a combination of File::Basename and IO::File should help. You can use File::Basename to properly retrieve path and filename, while IO::File should guarantee that no funny stuff happens while opening the file.

Anyway, there be dragons...

Hope this helps, -gjb-