#! perl
#  File: application.pl
use strict;
use warnings;

my $code = $ARGV[0] // 0;
printf "In application: result = '%5d' (decimal) or '%016b' (binary)\n", $code, $code;
exit $code;