{
    our $ERRORFILE = 'foo';
}
{
    package RecordError;
    print $main::ERRORFILE, "\n";

}