#!/usr/bin/perl
####
# Note from author:
# I dont know what my current facinaction with hiding my perl
# poems in code, but I think maybe this is going too far :)
###
use IO::ScalarArray;
use MIME::Decoder;
@pain =
('R0lGODdhxQGvAIAAAAAAAP///ywAAAAAxQGvAAAC/oSPqcvtD6OctNqLs968',
'+w+G4kiW5omm6sq27gvH8kzX9o3n+s73/g8MCofEovGITCqXzKbzCY1Kp9Sq',
'9YrNarfcrvcLDovH5LL5jE6r1+y2+w2Py+f0uv2OZwX2/BK/n5fzNwjIRdhw',
'WJc4shhoQ9ioFYkwCVfpcekIAznolZnZBrohqplCuvXZqajKyFq66TqW+md3',
'imH7SoKLNVtoyekXm6snHLYrxxkQTDv8cmz1/Au57Nu8Ek2F7ZZMnVxs4C3c',
'u3ewyM0QztyarozO3r6ejvg+/04OHg5hDuxuD39zLh69fvISjIO3bxrBfLoG',
'LrDXzVu9gg/9IWToIOFB/ooA+QlkNxFjuW8ANN4r6VEBxIYgF0pkydGgQ5UW',
'R77MyCogTX8dL6oTcdBmNUo5SZr8+UBbhqAuUTxjihIpUalCT4aUevRqz6r/',
'QkD9arSowghKb4Wlig8tiKdnC0HdORSuOLFx09Z1drIsTrVZm9q1KlOdzqQk',
'I2r1a4ItX7qAp94lNTiq27aNY0xWywHsYsGUfd49TGzz48KYSFcUnbcz6NWB',
'L4/G3MJ15dKoPc+WnLo2Vwt6eatGbLiC5tfEb+9G/HaG7K5rf+Nmfvw5aMWf',
'Yd5O/tG37r/QubM+Xdx2d+nKG/cG3jp3+OhyxS8V6dV5e6em5yOXn348+/z7',
'/h0bVzHUeeBdx9h4fQ3onlk3AYWff/rRVh2C0zXYn30SeoceXswJaKGFwxHI',
'GWx7RfYBdhXGJ2KH/GF4YYvfRWdibDWhuB6LHjrHoY0QglhjYvWt2GKM5I3I',
'o3pFPmjKjM1tN+SNTObY5I4GUkjjfy4CKSRkOFIZ2kpL9vjhlCFGqB2ZwnEJ',
'pYpkbcmkmm6yKCQNaero4IlDThIQlHqi+aMG1B1pZ5x0wsilnH2WCeigcM41',
'1p4pntkmkMFREOaLitZ5X6Q4zBklpp0SipVHjppJKZ+P+nnopQe++amkWBYK',
'y4JSfudle8vZeRWJVcp6pY8tIajrcxRZtGGDxOoQ/lMH2NWa362X5pqSdbyy',
'yuCvtkbr4LBKBsooszUkm5mxMzVrZIKlWittsLjuGqy3XGnLk6uevgufNfbq',
'Y+W9vpKqrzX89vtlvgD7K/DAASNpcMIKT7pwww4z/HDEEo+S6sQWG+zuxRpP',
'nPHGHjfc8ccij0xyySafjHLKKq/McssuvwxzzDLPTHPNNt+Mc84678xzzz7/',
'TIa6b4A7qwRCAy3E0aHUW2KfSiP9w9NrEK2s09hCjQSnVWidIb6nYu0D11OI',
'TW3XYBdBdhRpz2t0xWcL4rYsccuw9tvZrfL1I3PbbWjeZdRdNM/HuhTZUREC',
'jiq6B7erJNWWAnt1xIND/j4WqFr6bdm4i0cuLEaOm0054kvHG3q35R6+t4yK',
'N706d/BKvW62nDtcaabaiA7pv3cTKWaPE1yuu8S1Bzk7YZirHvyuXvsu7/JW',
'4n7H8E7ennqSxx/sfO+Jnov69bSzCWb1YhPrLN2mZVkx8AVfLP2r3j8rpZfQ',
'x46+3+ojvHH7nuo1PvnmZi6i+unufiwLk/zEVz36vK9qATTVAK02LYsZ0CH8',
'S+AJ5ge/VmnwT/jr3AIJ9iT/xS57QMCgBrmlKRK2LYIcA9/6MqjCsFkwcd1j',
'HtvWtEATnkF/MXzPBy84Qx/WcHtl6xWiOjgwHhoveTdEVhAVNETtSfGI4fph',
'/imUyLsqMvEaT7wAAck1xdy90IiScyESYbjEMbrAhF+UXRi5p8bmlTGE9kOg',
'FSGmoShe642/s+MWmzG5PeJpbp/7luaqRao8FYhqjDykBLcFxkFer5B9oyTF',
'TqXIMTnSg+GBXcICGUnTndGNf7SeJWlYsEwup5EsDNkcS1kzWPKtS3HMmSxn',
'CaAuvuyWuFQgL3sJzFzeMZjE3Fcti4lMUx4zmcyUVjOfqbdhQnOa1KymNa+J',
'zWxqc5vc7KY3vwnOcIpznOQspznPic50qtNenvSiLoEoze/FE5DFY+AvlTnK',
'kelwaPXU4jLz+E/2vZOdAx0h3Oa5sH3GoX8IxeMu/gtKz4aicVMQxVhFc8HQ',
'e/oyoOu8QkY5Sst8dtQQFVVoHyVqTlCSUpT0QtJHW8dJbHlrWZoz3JHamT1W',
'HpCFlrvoCjs200U+r6SQXGnlXCdTcSnOplLEaRphOrlCMrUnQK2pUF1KVNIJ',
'MqlLVWqypkq4fooRqo1jmvsUikWwuhOlaS0QFeU1wQ4irq0pBGMRN/rGuAoR',
'pI9b1VnHKMkAmTGRPm3ioup6QqQWC6U9/GtexUpG7NluexxUk15/ylfMPhax',
'9xMsY586ITqW8qWhDV8dNclHx741pKUlohwNm1h8tnazo82qaW8LWLeCzq84',
'1ChoJ5ta2KLQt3CkLWX9/pjZyPK2p6Ncrqp0W9w1mrGv54OVbIG709qydbrA',
'PWJnKUhIs9rzuJytLmK5KNqy5tC25MVtc8Xb0tfV8pSrnZ5rhfvcz2YRu+Bd',
'73bTa9z38lSx8hVpTA3c2P05cKjnFaZ76wvF5LLKuXdKH3Tv+tq9Ini3F35t',
'GzFszABDeK3EHW65ZrtaQUVWw4hs733pZ128onis/txwb10sYhrn94HSHBWO',
'qdvABl+XeKfVbol3fGK7TrQ/gc1tj7uoP8YF2YbSBfCIr6y87io5tpZlqY4l',
'C2b7LlbFKpaxlqN7ySNvsMMeNOgNmyzge/o4x258nIltXGOd1ot6A0ZlcFVp',
'tB6raiqoRYZvmjcJaPF8NcbwrGpXJ2loP9NKVKIsnFf3bGGY5lm8iY4vV6mM',
'PEQLmon0/XKXG1XpT9+X0DwudXH1jFpPH3XN+rXzSJNgUo8W9tboVfMOd83r',
'IScR2MFutITZkOtiS/qTxFa2M5lda2c79F7JljaWCRpta7cYz9rutre/De5w',
'i3vc5C63uc+N7nSre93sbre73w3veMt73vSut73vje9863vf/O63v/8N8GoW',
'AAA7');
tie(*IN,'IO::ScalarArray',\@pain);
$decoder = new MIME::Decoder 'base64' || die "base64 unsupported";
open(OUT,">pain.gif") || die "$!: pain.gif";
$decoder->decode(\*IN,\*OUT);
close(OUT);
print <<END;
Aright you should have a pain.gif in your current dir
That will contain my haiku :)
END