What's the format for Perl's stat command?

Here's a common setup for using the stat command:

($device,$inode,$file_mode,$num_link,$uid,$gid,$dev_id,$size,$access_time,$mod_time,$change_time,$block_size,$blocks)
= stat($filename);

You use this routine to get the time (current or otherwise) in Perl, and format the results as you wish.