http://www.perlmonks.org?node_id=723765


in reply to Column sort script

You can also user more elegant solution using File::Basename
--Artist

In Section Cool Uses for Perl