use strict;
use warnings;

$^I = q(.bkp);
@ARGV = qw( foo.txt bar.txt );
print uc while <>;

__END__