$ perl -e 'open FILE, "dummy"; print "A\tTab\n"; while(<FILE>) { print; }'