use warnings;
use 5.016;

package Tie::Handle::FancyThingy {
	use parent 'Tie::Handle::Argv';
	use File::Basename qw/fileparse/;
	sub OPEN {
		my ($self, $origfn) = @_;
		my ($fn, $dirs, $ext) = fileparse($origfn, qr/\.[^\.]+$/);
		my $outfn = $dirs.$fn.'.out';
		print STDERR "Debug: $origfn => $outfn\n";
		open ARGVOUT, '>', $outfn or die "$outfn: $!";
		select ARGVOUT;
		return $self->SUPER::OPEN($origfn);
	}
	sub inner_close {
		my $self = shift;
		select STDOUT;
		return $self->SUPER::inner_close(@_);
	}
}

tie *ARGV, 'Tie::Handle::FancyThingy';
while (<>) {
	chomp;
	say translate($_);
}

sub translate { return "<".shift.">" }