$ perl -we "$file='X'; open my $fh, '<', $file;"