Select Code to Download

my $text;

...

   print OUTPUT ($text;
}

#!/usr/bin/perl -pi

...
      : "$1 <---- LOW!"
   ;
/;