Hello jarwulf, and welcome to the Monastery!

You need to convert $inputFile into an absolute path before passing it to splitpath(). For example:

my ($inputFileVolume, $inputFileDir, $name) =
    File::Spec->splitpath(File::Spec->rel2abs($inputFile));
[download]

Or you could consider using File::Spec->curdir(). See File::Spec.

Hope that helps,