第77回 ネタ的プログラム

use strict;
use Error qw(:try);

try {
  print 'いくぞー', "\n";
  die 'うわ〜　水で顔がぐしゃぐしゃだ.', "\n" if int rand(2);
}otherwise{
  my $e = shift;
  print $e;

  print 'あたらしい顔よ〜', "\n";
  print '元気100倍', "\n";
};

print 'アンパー○チ', "\n";

実行結果1:

いくぞー
アンパー○チ

実行結果2:

いくぞー
うわ〜　水で顔がぐしゃぐしゃだ.
あたらしい顔よ〜
元気100倍
アンパー○チ