Select Code to Download

#!/usr/bin/env perl

...
    STYLE => "OldStyle",  # or whatever pleases you
    KEYGEN => sub{ (my $line = shift) =~ s/\s*$//; return $line; },
  };