perlでファイルサイズを調べる

 print (stat "$file_name")[7] . "\n";

　これで、$file_name にフルパスでファイル名を渡すと、バイト単位でサイズが返ってくる。
　メモメモ。
　で、これを利用して、リモートのファイルとローカルのファイルとで差が無いかをチェックするスクリプトを検討中。が、比較の処理がいまいち綺麗にならないので悩み中。うーむ。