$ perl -e " package Foo; our $VERSION = 0; sub VERSION { my $ss = q/SU
+PER::VERSION/; shift()->$ss; } die Foo->VERSION "
0 at -e line 1.
[download]

So  my $super = "SUPER::$meth"; $self->$super(@args);