use strict; use warnings; use Audio::FindChunks; Audio::FindChunks->new(filename => 'bere.mp3', min_silence_sec => 0.4, min_signal_sec => 0.5, above_thres_window => 5)->split_file({verbose=>1});