#!perl open $fh, "< drv_build.dat"; chomp( $build = <$fh> ); close $fh; $build ++; open $fh, "> drv_build.dat"; print $fh $build; close $fh; open $fh, "> drv_build.h"; print $fh <