use Inline::Files; open STDOUT, ">"; print "Hello, world\n"; #### use Inline::Files; open STDOUT, ">"; print "hello, world\n"; __STDOUT__ hello, world