BEGIN {
  eval "use ModulX";
}

if (ModulX->can('Methode'))
{
  print "CAN:\n"
  #...
  ModulX::Methode();
  #...
}
else
{
  print "CANT\n";
}