print call $tied, 5;

sub call(@){

    my $tied = shift;
    return $tied->(@_);
}