use IO::All;
print io("bla.txt")->all;