Select Code to Download

use strict; 
use warnings;
...
    push @opts, "-s $begin";
    push @opts, "-e $end";
    my ( $start, $step, $names, $data ) = RRDs::fetch @opts;

    my ( $intotal, $outtotal, $i );
    foreach my $value ( @{ $data } )
...
}
# Output some purty HTML.