Pour convertir plusieurs fichiers audio en mp3, utilisons la commande lame dans un scipt Perl.

#!/usr/bin/perl

use strict;
use warnings;

use Cwd;
use File::Find;

no warnings 'File::Find';

my $dossier = cwd();

find(&encode, $dossier);

sub encode
{
  my $fichier = $File::Find::name;
  if ($fichier =~ /wav$/)
  {
    my $cible = $fichier; $cible =~ s/wav$/mp3/;
    `lame --nohist --preset standard $dossier/$fichier $dossier/$cible`;
  }
}