my $file = '/tmp/file';                                                                   
open(IN, "<$file") or die "$0: cannot read file '$file': $!";                             
my $pod = 1 if scalar(grep(/^=pod/o, <IN>)) > 0;                                          
close(IN);                                                                                
pod2html($file) if $pod;