You can use Surveyor::Benchmark::SchwartzianTransform::SortFilesBySize under the same terms as Perl itself.