use strict;
use warnings;
{
  my $subref = sub { print "Hey, Hey!\n"; };
  Foo($subref);
}
exit 0;

sub Foo
{
	my $callback = shift;
	print "Foo started\n";
	$callback->();
	print "Foo is done\n";
}