#!/usr/bin/perl -n
use warnings;
use strict;

{   package File::ShowName;
    use Tie::Scalar;
    use parent -norequire => 'Tie::StdScalar';
    sub FETCH { print STDERR "Opening ${ $_[0] }.\n"; ${ $_[0] } }
}

BEGIN { tie $ARGV, 'File::ShowName' }

print;