require "external_subs.txt";

my $a = 1;
my $b = blue;

  if($a == 1) {
        &numbers
      } else{ die;

##</code><code>##

sub numbers {
        print "$b";
     }

1;