Select Code to Download

if ('foo' eq $val) {
   # process case 1
...
else {
   print "Unexpected value '$val'!\n";
}

use FileHandle;

...
      write FS;
   }
}