#!/usr/local/bin/perl

if (!@ARGV) {
    print "A file name must be specified on the command line\n";
} else {
    open (FILE, $ARGV[0]);

    $count = read (FILE, $buf, 1);
    while ($count) {
	if ((ord $buf) < 32) {
	    $ord = ord $buf;
	    $buf = "$buf:$ord";
	}
	print $buf;
	$count = read (FILE, $buf, 1);
    }
}
