$interface = "Interface1"; eval "print $interface" . "::foo()"; $interface = "Interface2"; eval "print $interface" . "::foo()";