Select Code to Download

my $coderef = sub {shift;};
my $val=$coderef->("Hello from down under");
...
       }

&doit($val);

my $coderef = sub {shift;};
sub doit{
       print shift, $/;
       }
&doit($coderef->("Hello from down under"));

#Closured.pm
#!/usr/local/bin/perl        -cw
...
    &{$_[0]};
    }
1;

#using the Closured class...
use strict;
...
my $object = Closured->new("Hisham"); #try to feed a constructor direc
+tly.
print $object,$/;   #the constructor retruns a code ref.
print $object->name("BioHisham"), "\n";  #Feed via an instance method

#Output 
Closured=CODE(0x18449ac)
BioHisham