open FILE, 'foo.ppt' or die "$!"; binmode FILE; read FILE, my $file, -s FILE, 0; close FILE;