sub generate_random {
    my ($start, $end) = @_;
    $end = 0 - ($start = 0 - $start) unless defined $end;
    return int( $start + rand($end - $start + 1) );
}