Is the right answer. It's not a real continuation because squirreling away a copy of the sub-reference $fred in, say, a package-global variable $Jane and calling $Jane later doesn't do what a real call-cc would allow you to do.

  use vars qw{$Jane};
  print call_cc {
    my $fred = shift;
    $Jane = $fred;  # Squirrel away a reference
    $fred->(42);
    64;   #NOTREACHED
  };
  print "\n";

  # And then call it later, outside the call_cc block...
  $Jane->(101);                 #bang.
[download]

Results in... you guessed it, an uncaught exception. So it's just an ersatz call-cc.

Funnily enough, call-cc is used in Scheme-like languages a lot for early exits from deep/non-deterministic recursions despite also having a try/catch-style mechanism.