my ( $year ) = localtime( ( stat $file )[ 9 ] ) =~ /(\d{4})/;