#!/usr/bin/perl -Imodules


use SetPath::SetPath;

my $PATH_OBJ = SetPath::SetPath->new();
$PATH_OBJ->getOSfromPathString('c:\windows');

print $PATH_OBJ->sP('c:\windows', "W2L");