my $sb = stat($_) or die "ERROR:Could not stat $_\n$!";