ToxicCode     =Home= / =Config Files= / =Shell Scripts= / =Articles= / =Text Files= / =Misc= /

#! /usr/bin/env perl
#Originally by catwell from http://bbs.archlinux.org/viewtopic.php?id=56646
#change the bitrate of MP3 files.
###
use File::Find;

sub wanted {
if (/.mp3$/)
 {
  ($n) = /(.*).mp3$/ ;
  system('lame',"-b 64",$_,"$n"."_64.mp3","-S")
 }
}

find(\&wanted, ".");