perl -we'open FOO, "> baz"; open BAR, "> baz"; print FOO "one\n"; print BAR "one\n";'