perl -e 'open(my $fh,".bashrc");$h={ f => $fh };while(<$$h{f}>){print}'