#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;
 
binmode(STDIN);
binmode(STDOUT);
 
my $char = '';
 
while ( $char = getc(STDIN) ) {
   print ord( $char ), $/;
}