perl - stat()、-X 演算子、そして _ ファイルハンドル

こういった場合のTipです。

if( -f $file ){
    my $file_size = -s $file;
    print "$file のファイルサイズは、$file_size バイトです。\n\n";
}
else{
    print "$file は、存在しませんでした。\n\n";
}