Select Code to Download

use Foo;
use Foo ':modern';

package Foo;

...
};

1;

use strict;
use warnings;
...
$obj->m1;
$obj->m2;
say ABC;