#!/usr/bin/env perl
# lsort -- sort text by line length

print for sort {length $a <=> length $b} <>;
