Select Code to Download

   sub Foo
   {
        # Arguments: ARRAY <- ARRAY
...
        # Single constant: SCALAR <- SCALAR
        my $go = 5;
   }

     my $filename = "/path/to/file",
        $filemode = "immolate",
        $opmode   = "seek",
        $filetype = "image/gif";