my $node = shift;
my $node = $_[0];
my ($node) = @_;