sub round {
    my ($num) = @_;
    return int( $num * 100 ) / 100;
}