#!/usr/bin/perl
require 5.002;
BEGIN {$ENV{PATH} = '/usr/ucb:/bin'};

#Specify Modules
use Socket;
use Carp;
use FileHandle;
use English;

$text      = @ARGV[0];
$address = @ARGV[1];
$syscmd = "echo $text | rmail";   
print "$syscmd\n";
system ( $syscmd );
      /^RAWPERL/ && do {
          $fileName = '/tmp/' . $port . '.tmp';
          $execute .= "\n";
          undef(%results);# $execute string may create results
              $fileHandle = &executeCommand($fileName, $attributes, $execute);
          
          while ( <$fileHandle> ) { # # send back results
              $bodyResult .= $_;
          }
          close $fileHandle;
          
          last SWITCH;
      };
      $bodyResult = " REQUEST \"$_\" is unkown";