Select Code to Download

$ strace perl -e 'open FOO, ">/tmp/foo"; print FOO "bar";'

...snip...
...
write(3, "bar", 3)                      = 3
close(3)                                = 0
exit_group(0)                           = ?