my ($vol,$path,$filename)=splitpath($spec);