add mod_perl

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@740 d0543943-73ff-0310-b7d9-9358b9ac24b2

src/mod/languages/mod_perl/freeswitch.pm

@@ -0,0 +1,11 @@
+package fs_perl;
+use Data::Dumper;
+
+sub wazzup() {
+  fs_console_log("WOOHOO!\n");
+  $session = fs_core_session_locate($SWITCH_ENV{UUID});
+  fs_channel_answer($session);
+  fs_ivr_play_file($session, "/root/siriusraw.raw", "");
+}
+
+1;