if (-s $file)  {
    my $size = (stat _)[7];
}