my $size=-s _;
my $blocks=int($size/512)+1;