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