#!/usr/bin/perl -l

use strict;
use warnings;

{
    package A;

    sub foo { 'Whee!' }
    sub check { return shift->SUPER::can('foo') }
}

print A->check->();