Select Code to Download

sub dequote {
   for (my $s = @_ ? $_[0] : $_) {
...
   print("error: $error\n");
   print("code:  $code\n");
}