#!/usr/bin/perl -l

sub function {
    return "foo";
}

$command = \&function;
print $command;

$command = \&function();
print "$command -> $$command";

__END__
$ ./833005.pl
CODE(0x604fd0)
SCALAR(0x604290) -> foo