sub get_parents {
	my (@p, $o);	
	for (split ("/",$_[0])) {push(@p,"$o/$_");$o.="/$_"}	
	return \@p;
}