#!/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();
}
#!/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();
}