undef $/;
open(FILE,"test");
$slurp=<FILE>;
print length $slurp;