Softshare Delta Warning in Perl

deltawarn.pl

use strict;
use warnings;

use OLE;  # OLE.pm module

# Make OLE connection: this creates an instance of an Delta object
my $delta = CreateObject OLE 'Delta.Executor.1' || die $!;

my $args = "";
my $c = 0;
 for($c = 0; $c < @ARGV; $c++)
 {
   $args .= $ARGV[$c];
   $args .= " ";
 }

$delta->LogMessage(4, $args);