use Time::local;
$fmt = 1;
$sec =2 ;
$min =3;
$hours =4;
$mday = 6;
$dmon =5;
$mon =6;
$year =7;
$wkday =8;
$Yearday =9;
$DST = 10;

#  use POSIX qw(strftime);

print timelocal($sec,$min,$hours,$mday,$mon,$year);
[download]

The name of the module is Time::Local, with the T and the L uppercase. Case is significant in module names. Fix that, and the code should work. You can test it with localtime:

#!perl -l

use Time::Local;
$sec = 1;
$min = 2;
$hours = 3;
$mday = 4;
$mon = 5;
$year = 6;

print $time = timelocal($sec,$min,$hours,$mday,$mon,$year);
print scalar localtime $time;
[download]

Which prints out:

1149404521
Sun Jun  4 03:02:01 2006
[download]

timelocal does some guessing on the year; it figured that 6 meant 2006. Also remember that the month starts at 0, so 5 is June.

chipmunk, Thank you very much. Kev

Just a tip: for future reference, "does not work" generally "does not help." chipmunk spotted the problem right away, but that may not be as easy in the future without an actual error message or a description of the problem. Glad to see you got your question answered, though.