use XML::BMEcat;
use File::Basename;

my $BMEcat = XML::BMEcat->new();
$BMEcat->setOutfile("catalog.xml");
my $GroupSystem = $BMEcat->creatGroupSystem();
my $CatalogGroup = $GroupSystem->creatCatalogGroup("04");