Select Code to Download

my $string = $q->param( 'string' );

...
print $q->header( "text/plain" );
print while <PIPE>;
close PIPE;

my $pid = open PIPE, "-|";
die "Cannot fork $!" unless defined $pid;
...
unless ( $pid ) {
    exec FIGLET, $string or die "Cannot open pipe to figlet: $!";
}