don't talk nonsense at blah.pl line 23.
  21 learn('nothing');
  22 sub blah (\[&]) {
  23     warn "don't talk nonsense";
> 24     $_[0]->();
  25 } 
  26 sub learn {
  27     my $self->teach(shift);
Can't use string ("bar") as a subroutine ref while "strict refs" in use at blah.pl line 24.

##</code><code>##

#!/usr/bin/perl

use strict;

$SIG{__DIE__} = sub {
    if(my ($d) = $_[0] =~ /line (\d+)/) {
        seek DATA,0,0;
        while(<DATA>) {
            if($. == $d) {
                warn '> '.$..' '.$_;
            } else {
                warn '  '.$..' '.$_ if ($. > $d - 4) && ($. < $d + 4);
            }
        } 
    } 
};

my $foo = 'bar';

blah($foo);
learn('nothing');
sub blah (\[&]) {
    warn "don't talk nonsense";
    $_[0]->();
} 
sub learn {
    my $self->teach(shift);
    warn "got it";
} 
__END__