use strict;

sub foo {
  print "foo\n";
}

if(my $code = main->can('foo')) {
   $code->();
}