SoXで音声データのフェードアウト

なんで終端からの時間を指定できるようになってないんだろね…

#!perl
# usage: perl fadeout.pl in.wav out.wav 5
my($infile,$outfile,$fadeout_len)~@ARGV;
my $a = `sox "$infile" -t wav NUL -V 2>&1 |grep Duration`;
$a =~ /(\d+)\s*samples/ or die "cannot find infile sample count\n";
my $samples = $1;
`sox "$infile" "outfile" fade l 0 ${samples}s $fadeout_len`;