use strict;
use warnings;


sub tst {
    warn "tst($_[0]) called\n"
}

my $symbol="tst";


($::{$symbol})->(1);

&{$::{$symbol}}(2);

(main->can($symbol))->(3);

&{main->can($symbol)}(4);