package test;

use Exporter 'import';
our @EXPORT =  qw (min);

sub min
{
	my $best;
	foreach my $item ( @_ )
	{
		$best = $item if not defined ($best) or (defined($item) and $item < $best);
	}
	return $best;
}