Select Code to Download

#!/usr/bin/perl

...

$, = "\n";
print sort caseless ('a','s','d','f');

use Exporter;
package Sorts;
...
@Sorts::EXPORT = qw(caseless);

sub caseless { lc $a cmp lc $b }

use Exporter;
package Sorts;
...
@Sorts::EXPORT = qw(caseless $a $b);

sub caseless { lc $a cmp lc $b }

use Exporter;
package Sorts;
...
@Sorts::EXPORT = qw(caseless *a *b);

sub caseless { lc $a cmp lc $b }

a
s
d
f

a
d
f
s