sub out_pic_fullsize {
 my $basepath=shift;
 my $basename=shift;
 my $data=shift;
 
 my $html = $templ;
 
 print "out_pic_fullsize($basepath, $basename, $data)\n";
 
 open HTML, ">$basepath/$basename.html";
 
 $html =~ s/%%basepath%%/$basepath/g;
 $html =~ s/%%basename%%/$basename/g;
 $html =~ s/%%data%%/$data/g;
 
 print HTML $html;
 
 close HTML;
}