my $pid = open ('-|', 'sh', '-c', 'exec mpg123 "$0" 2>&1', $filename);
my $pid = open PIPE, "exec mpg123 -v '$file' 2>&1|" or die $!;