# Fails
#!/usr/bin/perl 
use OpenOffice::OODoc; 
$myfile = "test.odt";
while(1){my $var = odfDocument(file => $myfile)}