Select Code to Download

sub test { my ( $s ) = @_;
   if ($s == 3) {
...
      print $s . "\n";
    }
}

use strict;
use warnings;
...
    $s = '<UNDEF>' 
    return "Formatted $s";
}