Select Code to Download

sub test{ print @_; }

...
$coderef->( 'a different argument' ); 
# Would print 'this is the argument'!!

sub test{ print 'this is the argument'; }

...
$coderef->( 'a different argument' ); 
# Prints 'this is the argument'!!

my $coderef = sub{ print @_; };
$coderef->( 'Some', 'args' );
# Prints 'someargs'