#!/usr/bin/perl

sub dest { return 1 } # don't want it optimised away

use Benchmark qw(:all);

cmpthese(-1,
         {
             goto => sub {
                 goto &dest;
             },
             call => sub {
                 return dest(@_);
             },
             callamp => sub {
                 return &dest;
             },
         });