Select Code to Download

#!usr/bin/perl -w
use strict;
...
beta
beta
beta

while ( <FILE> ) 
{
...
    }
    #here is the default code...
}