use Symbol;

$sym = gensym;
open($sym, "filename");
$_ = <$sym>;
[download]