#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper; 

my $dir = "./data/";

my $title = "track-";
my $extention = ".mp3";

foreach my $index (1 .. 100) {
  my $fn = $dir . $title . $index . $extention;
  `touch $fn`;
}
