perl -Mblib -MMac::Movies -MMac::Components -le '$c = OpenDefaultComponent("spit", "mp3 "); prin

t $c; EnterMovies() or die $!; $r = OpenMovieFile(shift) or die $!; $m = NewMovieFromFile($r, 0, newMovieActive); print 

ConvertMovieToFile($m, GetMovieIndTrack($m, 1), shift, shift, "TVOD", -2, 0, $c); die $!' /Users/pudge/Desktop/record/je

ek\ email.aiff /Users/pudge/Desktop/record/jeek\ email.mp3 MPG3