#!/usr/bin/perl
#Quotes from our favorite CTU Agent!!!


        sub a{print pack('H*',"4".              "9276d2066656465".              "72616c206167656e74".
        "204a61".       "636b2042".             "617565722c20616e".             "6420746f6461792069".
        "732074".       "6865206c".             "6f6e67657374206461".           "79206f66206d79206c".
        "6966".         "652e0a");}             sub b{print pack('H*'           ,"49207472757374656".
        "420".          "796f752c".             "204e696e612e2e2e0a");          }sub c{print pack('H*
                        ',"49662".              "0796f7520646f6e27742074656c6c206d65207768617420492077616e".
                       "7420746f2".             "06b6e6f772c207468656e206974276c6c206a757374206265206120717".
                      "5657374696".                                            "f6e206f6620686f77206".
                    "d756368207".                                               "96f752077616e742069".
                  "7420746f2".                                                  "0687572742e0a");}sub d
                 {print pack                                                    ('H*',"546865206f6e6".
                "c7920726".                                                     "561736f6e2074686174".
              "20796f75".                                                       "27726520636f6e73636".
             "96f75732".                                                        "07269676874206e6f77".
            "20697320".                                                         "6265636175736520492".
           "0646f6e2".                                                          "7742077616e7420746f".
        "20636172727920796f752e0".                                              "a");}@r=("a","b","c",
        "d"); eval($r[int(rand                                                  ( $#r +1 ) ) ]    );