Select Code to Download

#!/usr/bin/perl

...
));
$p2->Format('a-');
$p2->Format('-a');

$VAR1 = {
          'Post' => '-',
          '__RULE__' => 'Entry'
        };