perl -le 'open AA, ">test.txt"; warn "Hello"; print AA "foo\n";' 2> /dev/null