#!perl use File::Basename; $basedir = dirname($0)."/../.."; -d $basedir or die "Base directory $basedir does not exist!"; chdir $basedir or die "Failed to change to base directory: $basedir: $!"; require "$basedir/infrastructure/BoxPlatform.pm.in"; print "#define BOX_VERSION \"$BoxPlatform::product_version\"\n"; exit 0;