use File::Temp; $th = File::Temp::tempfile(undef, "UNLINK", 1); $zbt = sysseek $th, 0, 0; print $zbt, "\n";