#!/opt/perl/bin/perl -w

use strict;

scalar @ARGV or do {print STDERR "usage: putf string\n"; exit 1};
binmode(STDOUT, ":utf8");
print "$ARGV[0]\n";
.