#!/usr/bin/perl

use warnings;
use strict;

package Category;

    sub new {
        my $classname = shift;
        my $args = {@_}; 
        my $self = { name     => $args->{name},
                     url      => $args->{url} };
        $self->{url} = "list.cgi?category=" . $self->{url};
        return bless($self, $classname);
    }

    sub getName {
        my $self = shift;
        return $self->{name};
    }

    sub getUrl {
        my $self = shift;
        return $self->{url};
    }

package main;
my @names = ('Freizeit & Sport', 'Camping', 'Ferien & Reisen',
             'Hotel/Pension');
my @urls  = (12, 23, 15, 22);

my @categories = ();
my $i;
for ($i = 0; $i <= $#names; $i++) {
    push(@categories, Category->new(name => $names[$i],
                                    url  => $urls[$i]));
}

foreach $i (@categories) {
    print "Name: " . $i->getName(). "\n";
    print "Url: " . $i->getUrl(). "\n";
    print "\n";
}