perl -e 'sub new {die@_} main->new(); open main, "foo"'