Select Code to Download

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

&test( "test" );
&test( "toast" );

#!/usr/bin/perl -w
use strict;
...
        print "A or E NOT found\n";
    }
}