Select Code to Download

sub yoursubhere {
  my $p     = shift;
...
  
  $try;
}

use strict;
use warnings;
...
          ), "\n";
  }
}