{
    local $\;
    print 'somestuff';
    print "\rOVERWRITE\n";
}