sub import
{
  prereq_ok() if (caller())[1] eq '-';
}

##</code><code>##

perl -MTest::Prereq