Help for this page
> some_binary.out A or > some_binary.out B
#!/usr/bin/perl -w ... # gives $VAR1 = []; with 'B'