#!/usr/bin/perl

use lib '.';
use Sorts;

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

##</code><code>##

use Exporter;
package Sorts;

use base 'Exporter';
@Sorts::EXPORT = qw(caseless);

sub caseless { lc $a cmp lc $b }

##</code><code>##

use Exporter;
package Sorts;

use base 'Exporter';
@Sorts::EXPORT = qw(caseless $a $b);

sub caseless { lc $a cmp lc $b }

##</code><code>##

use Exporter;
package Sorts;

use base 'Exporter';
@Sorts::EXPORT = qw(caseless *a *b);

sub caseless { lc $a cmp lc $b }

##</code><code>##

a
s
d
f

##</code><code>##

a
d
f
s