update AST.pm

[MyselfYangjz]

Modify some AST code to make it more compatible，Can be adapted to the following situations：

use 5.018; use strict; use warnings; sub main {

my $name = $ARGV[0];
my $name = 'test'; 
system ("echo Hello World! $name");

}

exit main();