[%EVL: { my ($languages) = (); foreach my $lang(split(/\,/, $Language::LANGUAGES)) { $languages .= qq{$lang | } } $_ = $languages; } %] Site-UP | administration | edit | explore | new | disable | logout