Perlは結構使えるっぽいけどどうよ？

じゃあ Gentle.pm でも作るか。もうありそうなもんだけど。
----
sub please{@_}
sub sorry(){}

sorry, open( FILE, $file ) or please die;