my $cgi = new CGI;
my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func );
my $dirname = '';
opendir my($dh), $dirname or die "Couldn't open dir'$dirname':$!";
my @files = readdir $dh;
my $files;
closedir $dh;
#for my $i ( 2 .. $#files ) {
# print "\n";
# };
sub perl_func {
my $input = shift;
my $output = $input . "was the input!";
return ($output);
}
print $pjx->build_html( $cgi, \&Show_HTML);
sub Show_HTML {
my $html = <<__EOI__;
Graph
__EOI__
return $html;