my ($day,$month,$date,$hour,$min,$sec,$year)=split /[ :]/,"Mon Jul 17 17:59:31 2000";