$_ = $^O;
my $separator =  /mac/i ? ':'  :
                 /cyg/i ? '/'  :
                 /win/i ? '\\' :
                 '/';