sub {
if (length($_[1]) > 1) { print $IN->header; print "Value already exists..."; return $_[1]; }
my @cats; my @back;
foreach (@split /\//, $_[0]) {
push @back, $_;
push @cats, join "/", @cats;
}

print $IN->header;
use Data::Dumper;
print "CATS: " . Dumper(@cats);

foreach (reverse @cats) {
my $html = $DB->table("Category")->select( ['Header_HTML'], { Full_Name => $_ } )->fetchrow || '';
if (length($html) > 1){ return $html; }
}

}