Try

use warnings;
use strict;
use File::Spec;

my $path = File::Spec->rel2abs ('.');
[download]

From the documentation.
Update: curse this lag

Hope this helps.

Martin