#!/usr/bin/perl -CADS

if (!@ARGV) {
	binmode(STDIN,"encoding(shiftjis)");
	print <STDIN>;
}else{
	foreach (@ARGV) {
		open(In,"<:encoding(shiftjis)",$_) or die "$_: $!\n";
		print <In>;
		close(In);
	}
}