Select Code to Download

#!/usr/bin/perl

...
  my $bookparam = $cgi->param('book') || '';
  $cgi->render (text => "bookparam is $bookparam\n");
  }