#!/usr/bin/perl -w

use lib 'blib/lib';
use String::Canonical qw/cstr/;

$\ = $/;
$String::Canonical::debug = 1;

exit print "$ARGV[0] => ". cstr(shift) if @ARGV;

while (<>) {
	print "$_ => " . cstr();
	}