$ perl -e 'my $x = undef; &$x("frog")'
Undefined subroutine &main:: called at -e line 1.