my $page = 4;
my $first = ($page - 5) < 1 ? 1 : $page-5;
my $last = ($page + 5) > $maximum ? $maximum : $page + 5;
my @pages = ($first .. $last);
print "Folgende Seitenzahlen werden gezeigt: ",join(" -- ",@pages),"\n";