use v5.12;
use warnings;
do './PM.pl';

say for <DATA>

__DATA__
1
2
3