#!/usr/bin/perl -w
#printf "";
#use Getopt::Std;
#getopt('
print "blabla bla\n";
print "autor?";
chomp($autor=<STDIN>);
print "album?";
chomp($album=<STDIN>);
$komentarz= 'made by rmrmg';
$katalog = './'; #$ARGV[0];
@pliki= `ls $katalog`;
$numer = 1;
foreach (@pliki) {
@plik=split(/\n/, $_);
$fullname= join ('/', $katalog, $plik[0]);
print "$fullname";
print " plik $_ jaki ma tytul?\n";
chomp($tytul=<STDIN>);
#print "a numer?\n";
#chomp($numer=<STDIN>);
system("vorbiscomment -a $fullname -t \"artist=$autor\" -t \"title=$tytul\" -t \"album=$album\" -t \"tracknumber=$numer\" -t \"=made by rmrmg\" ");
@autorn=split(' ', $autor);
$autorf=join('_', @autorn);
#
@tytuln=split(' ', $tytul);
$tytulf=join('_', @tytuln);
#
@albumn=split(' ', $album);
$albumf=join('_', @albumn);
system("mv ./$fullname ./$autorf.$albumf-$tytulf.ogg");
print "ok\n";
$numer=$numer+1;
 }