open(DEVICE, "</dev/sda");
seek(DEVICE, 0, 2);
my $number = tell(DEVICE);