Select Code to Download

my $wide = 79;
my $keep=0;
...
      );

GetOptions(%options) or die;

while (<>)
{
...
else
        {print "\n";}
exit(0);