defined(my $size = -s $filename) or die "ack: $!";
# or using stat()
defined(my $size = [stat $filename]->[7]) or die "ack: $!";