use Path::Class qw/dir/;
my $dir = dir( 'basedir' ); # platform-neutral syntax