#!/usr/bin/perl -w
my $all=get_response('a','b');
sub get_response {
  my ($cgi, $CMD) = shift;
  print 'a'.$cgi."\n";  
  print 'b'.$CMD."\n";  
}