tweak this

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

scripts/socket/fs.pl

+#!/usr/bin/perl
 use FreeSWITCH::Client;
 use Data::Dumper;
 use Term::ReadLine;