<%perl> 
# returns nicely formated server date as an \@ of date parts
# written by Miroslav Madzarevic, mire  modperldev.com
# published using Perl Artistic Licence 

use POSIX qw(strftime); 

my @datum = split ' ',strftime("%A, %B %e %Y", localtime); 

if    ( $datum[2] =~ /1$/ and $datum[2] !~ /11$/ ) { $datum[2].='st'; }
elsif ( $datum[2] =~ /2$/ and $datum[2] !~ /12$/ ) { $datum[2].='nd'; }
elsif ( $datum[2] =~ /3$/ and $datum[2] !~ /13$/ ) { $datum[2].='rd'; }            
else                                               { $datum[2].='th'; } 

return \@datum; 

</%perl>