Use int(x + 0.5) rather than round()

I incorrectly assumed round was present in standard Perl functions, so instead
this now uses the idiom of int(x + 0.5). This works correctly for positive
numbers, but not for negative numbers - however track durations are inherently
positive so this assumption holds.