Select Code to Download

@test = ( sub { $_[0] < 3 } );

...
{
  print join q[ ] , grep $t->( $_ ), 1 .. 5;
}