gistfile1.pl

use strict;

sub foo {
   warn "foo called with @_";
}

sub call_func {
   my $func = shift;
   $func->( "a", "b", "c" );
}

call_func( \&foo );