BPM to MS Calculator

bpmtoms

#!/usr/bin/env perl
use 5.012;
no crap;
use Math::BigFloat;

sub round {
  return Math::BigFloat->new(shift)->bfround(1);
}

my $bpm = shift @ARGV;
$bpm = 120 unless $bpm && $bpm =~ m!^\d+$!;

my $ms = 60000 / $bpm;
say sprintf "Quarter note (one beat):\t%d ms", round( $ms );
say sprintf "Dotted eighth note (3/4):\t%d ms", round( $ms / 4 * 3 );
say sprintf "Eighth note (half beat):\t%d ms", round( $ms / 2 );
say sprintf "Sixteenth note (quarter):\t%d ms", round( $ms / 4 );