#!/usr/bin/perl
use strict;
use warnings;

use feature 'bitwise';
no warnings 'experimental::bitwise';


my $or;
for  my $x (@ARGV){
  $or |= $x ;
}

printf("%d\n", $or);

exit;

##</code><code>##

C:/Perl_524/bin\perl.exe  d:/pm/bitwise_or.pl 16 8
24