use File::Spec;
use Win32;

my $absolute_path = Win32::GetFullPathName(File::Spec->join("C:\\Perl\\bin", "..\\lib\\File\\Spec.pm"));