cpan> look App::pl

Working directory is R:\emoved\path\perl5.26.64bit\cpan\build\App-pl-0.90.2-1
Microsoft Windows [Versione 10.0.19044.1706]
(c) Microsoft Corporation. Tutti i diritti sono riservati.

C> cd t

C>perl -lne "print if $. == 51" test.pm
    my @cmd = ($^X,  $ENV{PLALT} // '../pl', @_);                   # was: ($^X, '-W', $ENV{PLALT} // '../pl', @_)

C>perl unit.t

1..8
ok 1 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "for( @A, [$A[0], 123456] ) { E Isodate( $_, 0 ), I( 0.0, $_ ), I( $_, \"+0\" ), I( $_, 1 ), D( $_, -80, \"+90\", \"-9.5\" ), \"\"; Date \"08:45\", $_ }" "123456789" "123456789.0" "123456789.1" "123456789.000001" "123456789.123456789"
ok 2 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "$RESULT = \"$Q${quote}abc$q$Quote\""
ok 3 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "%R = qw(a 1 b 2 c 1 d 3)"
ok 4 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "%NUMBER = qw(a 1 b 2 c 1 d 3)"
ok 5 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "-ENumber" "%N = qw(a 1 b 2 c 1 d 3)"
ok 6 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "-E" "N 3" "%N = qw(a 1 b 2 c 1 d 3)"
ok 7 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "form $_ = q!a%%b %%1$d %x:%1$o %1$*1$b %%%1$X!, 27; tr/$/:/; F $_, 27"
ok 8 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "-Mbignum" "Echo 123456789012345678901234567890 * 123456789012345678901234567890"