open DEV, '<+:raw', '/dev/sda4' or die ...
my $size = sysseek DEV, 0, 2;