#!/usr/bin/env perl

use warnings;
use strict;
use Time::Local;

timelocal(0,0,0,31,8,2011);

__END__

Day '31' out of range 1..30 at ./923524.pl line 7