【Perl,PHP】LLバトルロワイヤル16【Ruby,Python】

だれかこのRubyコードをPerlに書きなおしてください
#!/usr/bin/ruby

require 'FileUtils'

File.open('a.mp3') do | f |
x = f.read;
0.upto(200) do | i |
FileUtils.mkdir i.to_s
0.upto(255) do | j |
y = x.dup
y[i]=j;
File.open(i.to_s + "/" + i.to_s + "_" + j.to_s + ".mp3",File::c\CREAT | File::WRONLY | File::TRUNC) do | k | k.print y
end
end
end