#!/usr/bin/env perl

use strict;
use warnings;

sub call_it {
    my $fn_ref = shift;
    &{$fn_ref}();
}

call_it( sub { print "hi\n"  } );
call_it( sub { print "bye\n" } );