#!/usr/bin/perl -w use strict; foreach my $arg (@ARGV) { my $out = $arg; $out =~ s/\....$//; system('oggenc', '-b', '192', '-o', "$out.ogg", $arg); }