#!/usr/bin/perl -w
#
# do stuff


$author = <>;
chomp $author;
$genre = <>;
chomp $genre;
$album = <>;
chomp $album;



while (<>) {
  chomp $_;
  my @l = split /\t/, $_;
  push @data, $l[0];
  push @data, $l[1];
  push @data, $l[2];
}

while ($num = shift @data) {
  my $name = shift @data;
  my $filename = shift @data;
  system ("/usr/bin/oggenc", "-a", $author, "-G", $genre, "-l", $album, "-N", $num, "-t", $name, "-o", $filename . ".ogg", "processed" . $num . ".wav");
  #print join (' ', ("/usr/bin/oggenc", "-a", $author, "-G", $genre, "-l", $album, "-N", $num, "-t", $name, "-o", $filename . ".ogg", "processed" . $num . ".wav"), "\n");
}