if ($ENV{'REQUEST_METHOD'} eq "GET") {
        $in = $ENV{'QUERY_STRING'};
} else {
        $in = <STDIN>;
}

@podatki = split (/&/, $in);

foreach my $slot (@podatki)
        {
         %uporabnik = split (/=/,$slot);
}