Select Code to Download

#!/usr/bin/perl -w
use strict;
use 5.010;
...
say "returned was \n $$return";
my $return2 = format_texts( $rvars, $return );
__END__

sub format_texts {
  use strict;
  use 5.010;
...

  return 1;
}