source: vbox/trunk/src/VBox/Devices/PC/Etherboot-src/util/zfilelen.pl@ 41371

#!/usr/bin/perl -w

use bytes;

local $/;
$_ = <>;
print length($_);
exit;