Stuff

index.pl:

#!/usr/bin/perl

sub BEGIN {
    push @INC, "/mnt/work/ingatlanlicit/modules/";
}

use warnings;
use strict;
use Template;
use Database;

my $db = Database->new();
my $valami = $db->valami();
my $tvars = {
            };

Database.pm:

package Database;
# Az adatbázis objektum

use warnings;
use strict;
use DBI;
use DBD::Pg;

# konstruktor
sub new {
    my $class = shift;
    my $self = {@_};
    bless($self, $class);
    return $self;
}

sub ugyfelek {
    my $self = shift;
}

sub valami {
    my $self = shift;
}

1;