Sprechen wir den nun von
ref( $smb ) eq "Filesys::SmbClient" ?
Bei solchen Dateigrössen sollte man dann aber vermutlich irgendwann auf ein Schleife mit fseek und einen kleineren Readbuffer umstellen, oder? Ein Zweizeiler und ein simples Problem ist es dann zumindest nicht mehr - Zuverlässigkeit mal ganz außen vorgelassen.