{   local $\ = "\n";
    print "whatever";
    imported_subroutine ();
    print "something else";
}