23:30 >perl -MO=Deparse 1983_SoPW.pl
Smartmatch is experimental at 1983_SoPW.pl line 9.
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict;
@_ = ('a', 'b', 'c');
open my $A, '>', 'out.txt';
print $A ~~ \@_;
print $A scalar @_;
1983_SoPW.pl syntax OK

23:30 >