sysopen(HDA, "/dev/hda") || die; $hdasize=sysseek(HDA, 0,2); print "Drivesize:  %.2f GB\n\n",$hdasize/1024/1024/1024;