#!perl
use strict;
use warnings;

my $parameter = 'Hello World';

&SendMail($parameter);
sub SendMail()
{
my $service = @_;

print "Service is: [$service]\n";

my $msgSubject = '$service ';
print "msgSubject is: [$msgSubject]\n";
}

##</code><code>##

my ($service) = @_;