Can't do the exact same line in perl. =)
You can do this:

print "Newer\n" if ((stat($filename))[9] > (stat($filename2))[9]);
[download]

-Waswas