#!/usr/bin/perl
use strict;
use warnings;
my $input = shift || "";
my $cmd = "rcs_c.exe $input";

print "\n\n--- Executing cmd '$cmd' via system\n\n";
my $rc = system $cmd;
print "--- Execution finished with return code: ",$rc>>8,"\n";

print "\n\n--- Executing cmd '$cmd' via backticks\n";
my $return =  `$cmd`;
print "--- Execution finished, and returned:\n\n$return\n";

print "\n\nbye...\n";

exit $rc>>8;