uhm, you could use File::Spec::catfile, like
my $sep = File::Spec->catfile('', '');
i actually wonder why File::Spec doesn't provide a variable for this...

Update: ok, after reading rinceWind's answer I can see why.