binding-basic.t

say "1..1";
my $foo;
$foo := "ok 1";
say $foo;