Assuming that I am forced to work under Perl 5.0 (the sysadmins wont upgrade), and that I am not able to install any modules, is there a pure Perl way to work out the ISO week number from any given date in the format DD/MM/YYYY. The date will be from user input.