$ perl a
1
1