print call $tied, 5;

sub call(@){

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


##</code><code>##

print $tied->(5), $/;