local $PERL_MEMO;

■ [perl][memo]DATAを開くとデバッグがだるい

use autobox::dump;
use YAML;
print Load(do { local $/; <DATA>; })->perl;
sleep 100;
exit;
__DATA__
---
foo: hoge
bar: fuga
baz: piyo

みたいな処理を書くとsleepしてる間ソースファイルがreadonlyになって不便。

print Load(do { local $/; $a = <DATA>; close DATA; $a; })->perl;