Select Code to Download

use Socket qw [inet_aton];

...
}

@sorted = sort { squish($a) cmp squish($b) } @unsorted;