Select Code to Download

#!/usr/bin/perl
use Term::Cap;
...
    print$/
  }0..20;
}

map{
  $a=1-$_/10;
...
  }0..59;
  print$/
}0..20;