>perl a.pl
1

>perl a.pl
1

>perl a.pl
0

>perl a.pl
1