#!/usr/bin/perl


my $limitstart = 20;
my $limitantal = 20;

strange_sub(limitstart => $limitstart, limitantal => $limitantal);
strange_sub();


sub strange_sub
{
        my (%params) = @_;

        my $string = 'limit ' . $params{'limitantal'} if ((!$params{'limitstart'}) && ($params{'limitantal'}));
        $string = 'limit ' . $params{'limitstart'} . ", " . $params{'limitantal'} if (($params{'limitstart'}) && ($params{'limitantal'}));
        print STDERR "limitstring = " . $string . "\n";

}