#!/usr/bin/perl

use strict; 
use simplegraph;

$iteration = 0;

$servers={'64.210.209.50' => { domain => 'www.zwire.com',
                               scale => 3500,
                               vips => [],
                              },
          '64.210.209.51' => {},
         };


##</code><code>##

splice (@{$vips{$k}{'stack'}},0,$#{$vips{$k}{'stack'}}-50) if ($#{$vips{$k}{'stack'}}>50);