#!/usr/bin/perl

for ($tempo = 100; $tempo <= 200; $tempo++){
   $from = '8Beat-'. "$tempo" . 'BPM.mp3';
   $to = '8beat-'. "$tempo" . 'BPM.mp3';
#   print "$from --> $to\n";
   rename $from, $to;
}
