#!/usr/bin/perl

BEGIN {
	local $^O = 'MSWin32'; # or Unix MacOS VMS, and so on
	require File::Spec::Functions;
	File::Spec::Functions->import;
	}
	
my $path = catfile( 'top', 'middle', 'bottom' );

print $path, "\n";