#for example

my ($volume,$directories,$file) = 
    File::Spec->splitpath( $path, $no_file );