perl find directory only if modified in last hour

I want a one liner perl command to find a directory only if the modified time is within the last hour

I am running this on windows - and I will define a variable for the result.

So for example I want to return value of 1 for the variable if the modified time of d:\test1 is within the last hour. If it hasnt been modified within the last hour I want to return a value of 0 for the variable so I can then print the variable name and its value to a file..

Can you help?