Plankton@Chum_Bucket:~/perl/perlmonks> cat scritp.pl
#!/usr/local/bin/perl
use strict;
require "ex.txt";
my $bb = "blue\n";
&numbers ( $bb );
Plankton@Chum_Bucket:~/perl/perlmonks> cat ex.txt
sub numbers {
        my $v = shift;
        print "$v"
     }
 
1;