#!/usr/bin/perl -w

$foo = 23;
print ($foo & 255) +1, "\n";