if(param("submit")) { $start=param("start"); $finish=param("finish"); if(!defined($child_pid=fork())) { die "cannot fork $!"; } elsif($child_pid==0) { my $query= "/usr/apache/cgi-bin/order/ldasdump.pl -png -d dicty chr5.1:$s tart,$finish --user xxxx --pass xxxxxxxxx > /usr/apache/htdocs/nob24.png"; exec($query); } else { waitpid($child_pid,0); print img({src=>"../../nob24.png",align=>'LEFT'});