kell05

sub current_date{
	my ($d,$m,$y) = (localtime)[3,4,5];
	
	# Normalise dates
	($m+=1,$y+=1900);
	
	# Check prefix with zero
	$m = "0$m" if ($m < 10);
	$d = "0$d" if ($d < 10); 
		

kell05

sub trim($) {
	my $string = shift;
	$string =~ s/^\s+//;
	$string =~ s/\s+$//;
	return $string;
}