c:\nonBKU\emacs-27.1-i686\bin>runemacs.exe -Q D:\tmp\pm\tst.pl -eval "(progn (cperl-mode)(goto-line 4)(newline))"

c:\nonBKU\emacs-27.1-i686\bin>

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

sub y_max {
    1
}

print "Done";