[root@local]#cat test.pl
#!/usr/bin/perl
use strict;
use warning;

my $arg00=0+shift ( @ARGV );
my $arg01=0+shift ( @ARGV );

#printf $arg00+$arg01."\n";
printf( "%d", $arg00 & $arg01 );

[root@local]#./test.pl 33 224
<BR>32[root@local]#