$ perl -MO=Deparse,-p 1.pl
use strict;
my($test);
($test = (undef));
print("test = $test\n");
1.pl syntax OK