#!perl

foreach $err (@ARGV) {
	$^E = $err;
	print "$^E\n";
}